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Lenguajes 

informáticos 



Del código máquina a 
los lenguajes de alto 
nivel 



curre en el univer- 
so de los seres hu- 
manos y, por su- 
puesto, también 
debía suceder 
algo semejante en el mundo de los or- 
denadores, Las máquinas programables 
creadas por el hombre forman una torre 
de Babel en la que la disparidad de los 
lenguajes de comunicación es tan acu- 
sada como pueda serio en la sociedad 
humana. A! igual que en el terreno de 
los lenguajes humanos hay algunos 
idiomas con mayor relevancia y difu- 
sión, utilizados como patrón de entendi- 
miento (el inglés, el español o el fran- 
cés), en la Babel de los ordenadores 
también existen algunos lenguajes con 
acusado protagonismo. Sin lugar a du- 
das el más popular de ellos es el BA- 
SIC, aunque poco a poco va cediendo 
ante los lenguajes estructurados {como 
el Pascal), que unen a su potencia una 
facilidad de manejo y comprensión mu- 
cho mayor. 

No terminan aquí las analogías. En la 
sociedad humana, muchos idiomas pre- 
sentan dialectos o variantes, más o me- 
nos distantes de la raíz original. Una 
realidad trasladable a los lenguajes in- 
formáticos, donde los dialectos y versio- 
nes del BASIC son casi tan numerosos 
como los modelos de ordenadores. Esta 
situación habrá quedado particularmen- 
te clara para los que hayan al menos ho- 
jeado los tomos dedicados a tan popu- 
lar lenguaje en esta enciclopedia. 

Cualquier exposición relativa a los 
lenguajes informáticos debe partir del 
personaje central: el ordenador. Sabe- 
mos que es una máquina cuya propie- 
dad diferenciadora reside en que admi- 
te una programación que le permitirá 
^alizar una ingente variedad de tareas; 
tantas como el usuario sea capaz de pro- 
gramar. 

Debido a su constitución interna —un 
conjunto de circuitos electrónicos, de 
tecnología digital™, el ordenador está 
capacitado para entender un lenguaje 
ronstruido a partir de unidades elemen- 
tales de información, o bits (un cero o 
_.n uno, representados, normalmente, 
por la presencia o ausencia de tensión 
g corriente, que un circuito electrónico 
es capaz de detectar). A partir de este al- 
fabeto mínimo (0 y 1) pueden construir- 



se palabras {dependiendo de la unidad 
central de proceso, una palabra puede 
estar formada por ocho, dieciséis, trein- 
ta y dos o más ceros y unos, siempre en 
potencias de dos) y, por supuesto, frases 
{que no serían otra cosa que un conjun- 
to de palabras puestas una detrás de 
otra, sin elementos separadores: no ol- 
videmos que un microprocesador no en- 
tiende de espacios) con las que estable- 
cer una comunicación repleta de conte- 
nido. 

Algo es ya evidente: por su naturale- 
za, el ordenador está capacitado para 
dialogar en un lenguaje particular, que 
por sus características denominaremos 
lenguaje máquina, edificado a partir de 
las unidades mínimas de información, 
ceros y unos. Estos elementos, los BITs 
{contracción de su denominación ingle- 
sa, Binary diglT: dígito binario), coinci- 
den con los propios del sistema de nu- 
meración binario. 

Niveles de los lenguajes 
informáticos 

La capacidad del ordenador para in- 
tercambiar información con el usuario 
es un hecho ya precisado. Por el mo- 
mento, hemos visto que es posible es- 
tablecer una comunicación con sus cir- 




ia disparidad de lenguajes y ía 
necesidad de medios de traducción 
que permitan el entendimiento son 
realidades compartidas por los 
■■ lenguajes humanos convencionales y 
I los lenguajes de programación. 

cuitos electrónicos utilizando su len- 
guaje «materno»: el código máquina. 
Una simple reflexión acerca de esta vía 
de diálogo nos lleva a algunas conclu- 
siones no excesivamente favorables 
para el lenguaje máquina. En principio, 




En su intimidad l el lenguaje de ios circuitos de la máquina es una complicada 
secuencia de niveles de tensión estados de conexión y desconexión que 
representamos por medio de combinaciones de unos y ceros . 
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MAS PROJIMOS AL 
LENGUAJE HABLADO 





El ordenador es una máquina capaz de recibir una 
programación y comunicarse con el mundo exterior. Ello es 
posible debido a la existencia de lenguajes que permiten 
establecer una comunicación organizada: los lenguajes de 
programación , clasificadles en tres categorías según estén 
más o menos próximos al lenguaje real de 
los circuitos electrónicos. 



MAS PROXIMOS 
A LA MAQUINA 




no cabe duda de que se trata de un len- 
guaje difícil de aprender para el usua- 
rio; no sólo por la complejidad inheren- 
te a su estructura, sino también por el 
hecho de que su íntima relación con la 
máquina obliga a conocer muy a fondo 
los entresijos de ésta. Además, hay que 
recordar que el ordenador es una má- 
quina ignorante, a la que hay que ins- 
truir con toda suerte de detalles míni- 
mos; una tarea ardua y difícil de llevar 
a buen término a base de combinar unos 
y ceros. 

Aunque la programación en lenguaje 
de máquina no está tan lejana en el 
tiempo (ciertamente, nada relacionado 



con los ordenadores puede ser demasia- 
do antiguo), pronto los diseñadores/ope- 
radores de ordenadores (en sus comien- 
zos, sólo el equipo que había creado una 
máquina era capaz de entenderla y pro- 
gramarla) empezaron a cuestionarse la 
necesidad de su empleo: al fin y al cabo, 
el ordenador no es más que una herra- 
mienta creada por el hombre para faci- 
litar su trabajo... ¿Por qué hay que acon- 
dicionarse a la máquina, si cabe la po- 
sibilidad de comunicarse con etla utili- 
zando un lenguaje próximo al humano?. 
Todo el problema se reduciría a crear los 
traductores adecuados para convertir 
las descripciones formuladas en len- 



En los lenguajes 
de máquina 
simbólicos , el 
programador 
utiliza códigos 
nemotécnicos en 
lugar de códigos 
numéricos. La 
programación es 
enormemente 
más sencilla que 
empleando 
únicamente unos 
y ceros , aunque 
la tarea del 
usuario continúa 
siendo enorme. 



guaje evolucionado en sus correspon- 
dientes en lenguaje máquina 

Este razonamiento derivó en la crea- 
ción de nuevos lenguajes informáticos, 
rnás próximos at lenguaje convencional. 

El desarrollo de los lenguajes fue pa- 
ralelo a la evolución de ios ordenado- 
res. Poco a poco fueron naciendo len- 
guajes algo más alejados de la intimi- 
dad de la máquina y, más tarde, llega- 
ron los denominados lenguajes de alto 
nivel, cuyas sintaxis, semántica y prag- 
mática eran ya semejantes a las del len- 
guaje humano. 

En nuestros días, la pirámide de Jos 
lenguajes informáticos consta de tres 
niveles: 

Lenguajes máquina 

Ocupan el estrato inferior, menos 
evolucionado, de los lenguajes informá- 
ticos. Dada su total consonancia con la 
naturaleza íntima de la máquina, es ob- 
vio que el lenguaje será distinto según 
se trate de unos u otros ordenadores. 

Cabe recordar que el cerebro o unidad 
central de proceso de un ordenador es 
el microprocesador; en consecuencia, el 
lenguaje máquina apropiado para cada 
ordenador dependerá del tipo de micro- 
procesador que resida en su núcleo. En 
efecto, cada microprocesador {6800, 
6502, Z80, ó, más recientemente, 8088, 
8086, 68000, etc.) tiene su propio len- 
guaje máquina. 

Lenguajes ensambladores 

El estrato intermedio está ocupado 
por los lenguajes de ensamblado, o en- 
sambladores. El repertorio de elemen- 
tos que intervienen en Ja confección de 
programas coincide, en este caso, con 
conjuntos de símbolos o nemónicos, que 
ofrecen una mayor comodidad que las 
asociaciones de ceros y unos. 

Su relación con el lenguaje máquina 
es muy próxima, hasta el punto de que 
cada familia de microprocesadores po- 
see un lenguaje ensamblador propio, en 
directa correspondencia con su lengua- 
je máquina. 

La tarea de confección y corrección de 
los programas resulta ahora más fácil, 
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I A medida que ha evolucionado la 
I informática han ido creándose 
I nuevos lenguajes de programación 
I -de alto nivel», con una estructura 
I semejante a la de los lenguajes 
I humanos , 

jada la comodidad que supone el em- 
plear grupos de letras en lugar de ceros 
- unos para definir las operaciones. No 
cabe duda de que para incrementar un 
número en una unidad es más grato es- 
i'ibtr INC A que 001 11100 01000001; 
> desde luego, la posibilidad de come- 
ter un error es bastante menor. 

Ei lenguaje ensamblador tiene, a pe- 
3 - 3 r de su dificultad, un ámbito de apli- 
tación del que ningún lenguaje de alto 
n ,e\ ha sido capaz de desplazarlo, aun- 
: je se haya intentado, y se siga hacién- 
dolo, con verdadero interés: el desarro- 
: de aplicaciones en tas cuales la ve- 
:: dad de proceso sea crítica. Un pro- 
; ama creado directamente en ensam- 
: ídor puede ser optimizado a! máximo, 
a so que un compilador, que actúa se- 
reglas generales de traducción, no 
: .ede hacer. Entre estas aplicaciones 
:: demos citar el control de procesos en 
3*3 Tipo real, y el desarrollo de sistemas 



operativos {el sistema operativo es un 
programa residente en el ordenador que 
le indica cómo atender a los distintos 
elementos a él asociados: teclado, pan- 
talla, unidad de disco, etc. Sin sistema 
operativo el ordenador se convierte en 
una máquina totalmente inútil). Poco a 
poco, sin embargo, el ensamblador está 
siendo desplazado incluso de estas ta- 
reas críticas. Por poner un ejemplo, en 
el sistema operativo UNIX, uno de los 
más recientes, únicamente ef núcleo 
está programado en ensamblador. El 
resto se ha desarrollado en el lenguaje 
de alto nivel C. 

Lenguajes de alto nivel 

Estos son ya lenguajes evolucionados 
que mantienen un gran paralelismo con 
los lenguajes hablados convencionales. 
En este tercer nivel, la disparidad de los 
lenguajes no es achacable al procesa- 
dor, sino al fin a que han sido destina- 
dos: un lenguaje de gestión de procesos 
es enormemente distinto de otro pensa- 
do para la realización de cálculos mate- 
máticos, y uno de propósito general, 
como pueda serlo el BASIC, es total- 
mente diferente de ambos. Los lengua- 
jes de alto nivel más difundidos {BASIC, 
Pascal, FORTRAN, COBOL, LOGO, ...) 
disponen de traductores para su conver- 
sión al lenguaje máquina de casi cual- 
quier microprocesador. Como ya sabe- 
mos, estos traductores pueden ser intér- 
pretes (traducen y ejecutan las senten- 
cias una a una) o compiladores (se tra- 
duce el programa completo antes de 
proceder a su ejecución). 

Las ventajas son evidentes: la redac- 
ción del programa resulta comprensible 
para cualquier usuario, y, por tanto, es 



más cómoda su redacción y !a detección 
de posibles errores sintácticos. Por lo 
demás se reduce el tiempo de progra- 
mación y, to que es más importante, 
cabe ya pensar en que un mismo pro- 
grama puede ser ejecutado por distintos 
ordenadores. 

Lenguajes de alto nivel 

El BASIC es, sin lugar a dudas, el len- 
guaje de alto nivel más popular en 
nuestros días. Un lenguaje de progra- 
mación polivalente, que ha derivado en 
múltiples dialectos: desde versiones re- 
sumidas para el aprendizaje, hasta po- 
tentes y evolucionadas versiones orien- 
tadas a la programación profesional. 
Pero no arranca de ahí la historia de ¡os 
lenguajes informáticos. Antes del BA- 
SIC y después de él son muchos de los 
lenguajes que han visto la luz: desde el 
SHORT CODE que en 1949 desarrolló 
el doctor Mendy para la firma UN1VAC, 
o el SPEED CODING nacido en 1 953 con 
destino a IBM, hasta los más recientes 
como el LOGO (1976) o el ADA (1980), 
un lenguaje específicamente diseñado 
para tenerlo como estándar en el Depar- 
tamento de Defensa de Estados Unidos, 
lo que le asegura ya desde el principio 
una amplia difusión. 

La clasificación de los lenguajes de 
alto nivel es una misión casi imposible, 
debido a que cada día aparecen nuevos 
lenguajes o dialectos de los ya existen- 
tes. En el año 1 980 estaban registrados 
unos doscientos lenguajes diferentes, 
muchos de los cuales estaban especia- 
lizados en la resolución de un determi- 
nado tipo de problemas o sólo eran uti- 

Ei ordenador 
puede 

encargarse de 
traducir los 
programas 
escritos en un 
lenguaje de alto 
nivel a 
código 

máquina. Para 
ello es 
necesario 
ejecutar un 
programa 
«traductor», que 
utilice las 
instrucciones 
del programa 
fuente . 
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lizables por un determinado tipo de or- 
denadores. 

Otra dificultad adicional está en po- 
der determinar a qué categoría pertene- 
ce un lenguaje concreto. De una forma 
muy genera! podemos elaborar la clasi- 
ficación que sigue, si bien los diferen- 
tes grupos no son en absoluto disjuntos. 

a) Lenguajes científicos. 

Históricamente son los primeros len- 
guajes evolucionados, debido a dos fac- 
tores primordiales: en principio, la for- 
mulación matemática permite una más 
fácil formalización del lenguaje y, en se- 
gundo lugar, muchas de las aplicacio- 
nes científicas tienen un carácter poco 
repetitivo, por lo que resulta muy impor- 
tante reducir el tiempo de programa- 
ción. 

Los primeros lenguajes de este tipo 
fueron el SHORT CODE, creado en 1 949 
por el doctor Mandy para la casa UNI- 



VAC, y el SPEED CODING, desarrollado 
en 1 953 por Backus y Seldon para IBM. 
Tras ellos, y antes de llegar al más usa- 
do, el FORTRAN, aparecieron MATH- 
MATIC, UNICODE, IT, GAT Y FORTRAN- 
SIT r entre otros. 

En la actualidad, los lenguajes más 
conocidos son ALGOL, FORTRAN en sus 
diferentes versiones, APL, BASIC y Pas- 
cal. Aunque su origen sea el desarrollo 
de aplicaciones científicas, muchos de 
eilos se utilizan normalmente como len- 
guajes de propósito genera!. 

b) Lenguajes de gestión. 

Los lenguajes de gestión están orien- 
tados a la solución de problemas de tra- 
tamiento de datos para la gestión, por lo 
que predominan en ellos las instruccio- 
nes especializadas en el tratamiento de 
procesos de entrada/salida. 

El primer lenguaje creado para apli- 
caciones en este campo fue el FLGW- 



MATIC, desarrollado en 1955 por el 
doctor Hopper para UNIVAC. En la ac- 
tualidad, el más conocido y utilizado es 
el COBOL 

c) Lenguajes polivalentes . 

Son el resultado del Intento de obte- 
ner un lenguaje que cubriera tanto el 
área científica como el área de gestión, 
de una forma equilibrada. 

El primero que cumplió estos objeti- 
vos fue JOVIAL, desarrollado en 1959 
por el Strategic Air Command Control 
System. Tras él surgió en 1 964 el PL/1 . 

Otros lenguajes de esta categoría son 
FORTH, ALGOL ADA Y LOGO, este úl- 
timo de gran importancia en el campo 
de la educación, 

d) Lenguajes para procesado de listas 
y cadenas. 

Es éste un grupo muy especializado, 
del que forman parte el IPL-V, el L1SP, 
el CGM1T y el SNOBOL. 

e) Lenguajes para expresiones alge- 
braicas formales ; 

Este tipo de lenguajes permiten el uso 
de expresiones matemáticas sin referir- 
se a valores numéricos concretos y, por 
tanto, no necesitan un fuerte desarrollo 
de Análisis Numérico. 

El primero fue ef ALGY, creado en 
1961, aunque también cabe citar el 
FORMAC, MATHLAB, ALTRAN, FLAP, 
MAGIC PAPER y SML 

fj Lenguajes de manejo de ficheros y 
bancos de datos. 

El incremento de la cantidad de infor- 
mación que hay que manipular dentro 
de un proceso obligó a perfeccionar la 
gestión de los datos. Ante esta necesi- 
dad se empezaron a desarrollar lengua- 
jes y sistemas para el tratamiento de fi- 
cheros y bases de datos. Estos sistemas 
suelen integrarse bajo las siglas IMS 
(Information Manegement System, o 
Sistema de Manejo de Información), 
DMS (Data Management System, o Sis- 
tema de Manejo de Datos), DBS (Data 
Base System, o Sistema de Base de Da- 
tos), etc. 

g) Lenguajes para la inteligencia arti- 
ficial. 

Este campo, de gran desarrollo en los 
últimos tiempos, precisa de lenguajes 




Dentro del universo de ios lenguajes de programación caben desde lenguajes 
orientados al diálogo especializado ( gestión , cálculo, enseñanza,.,.), hasta lenguajes 
polivalentes útiles para programar cualquier tipo de aplicación. 
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I Con ios lenguajes de alto nivel la programación de los ordenadores no exige un profundo conocimiento de su estructura interna, 
| con lo que cualquier usuario no especializado puede llegar a confeccionar programas plenamente operativos . 

de enorme capacidad de razonamiento 
ogíco y manejo de listas y palabras, en 
;os que el cálculo queda relegado a un 
segundo plano. Entre ellos cabe desta- 
car como más importante a L1SP (LISt 
Processing, o procesado de listas) y 
PROLOG {PROgramming in LÜGic, o 
z^ogramación lógica), con sus diversos 



A pesar de la gran cantidad de 
enguajes de alto nivel que existen en 
el mercado informático , el liderazgo 
corresponde a un grupo reducido de 
ellos . En el gráfico se relacionan las 
características «facilidad de 
acrendizaje» y « número dé usuarios» 
de los lenguajes más comunes. 



4 NUMERO DÉ 
USUARIOS 



isrt i0A 

-T I t 



FORTRAN IV 
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dialectos más o menos especia fizados 
para una máquina particufar. 

h) Lenguajes especiales* 

Esta categoría 1 integra a los lenguajes 
que se utilizan para funciones especia- 
lizadas, por lo que no son demasiado co- 
nocidos fuera de su área de trabajo Se- 



Los principales lenguajes de 
alto nivel 

ADA 

(En honor de Lady Augusta ADA Byron) 

La publicación de unas notas sobre la máquina analítica 
de Charles Babbage, le sirvió a la condesa de Lovelace 
para pasar a la posteridad, cediendo su nombre al 
lenguaje que debía nacer del proyecto CREEN. Fue en 
1975 cuando se consumaron los trabajos del equipo 
dirigido por J.M. Ischbia de la firma CII'Honeywell 8u!l r 
con el patrocinio del Departamento de Defensa de los 
Estados Unidos. 

Et ADA es un lenguaje inspirado en el PASCAL que se 
desarrolló con el objetivo de conseguir un lenguaje con 
posibilidades de convertirse en estándar universal y que 
facilitara el mantenimiento de los programas. 
Actualmente, aún no está muy difundido, aunque 
muchos expertos lo consideran uno de los lenguajes 
con mayor futuro, 

ALGOL 

(ALGOrithmic La n guaje. Lenguaje algorítmico) 

A raíz de un proyecto de Peter Naur en 1958, un 
consorcio internacional promovió el desarrollo de un 
lenguaje de alto nivel, inicialmente para aplicaciones 
científicas, que algún tiempo más tarde se plasmaría en 
el ALGOL. A pesar de sus cualidades para cálculos 
numéricos, tratamiento de entradas/salidas y procesos 
recursivos, el ALGOL es uno de los lenguajes que no ha 
viajado con la revolución microinformática. 

BASIC 

(Beginners All-purpose Symbolic fnstruction Code. 

Código de instrucciones simbólicas de uso general para 
principiantes! 

El más popular de los lenguajes actuales, sin lugar a 
dudas, y a considerable distancia de los restantes 
lenguajes informáticos. Nació entre 1 964 y 1965 en el 
Dartmouth College como una herramienta para la 
enseñanzfc-Gon el tiempo, han ido proliferando los 
dialectos y versiones, hasta el punto de que raro es el 
fabricante que no desarrolla un dialecto propio para sus 
equipos. 

Es muy difícil encontrar un ordenador personal que en 
su versión básica no incorpore un interprete de lenguaje ■ 
BASIC. Desde hace algunos años, ía firma americana 
Microsoft lidera el desarrollo de dialectos BASIC, 
disponiendo de algunas versiones (MBASIC, 



gún su aplicación pueden agruparse en 
distintos conjuntos como son el control 
de máquinas herramientas (APT, AU- 
TOSPOT, PRÜMTO, .,.), la ingeniería ci- 
vil (COGO, STRESS, ICETRAN), diseño 
lógico (LOTIS, LDP), simulación (DYA- 
NA, DYNAMO, SIMULA, GPSS, SIMS- 
CRIPT), diseño de compiladores (CLIP, 



MSX -BASIC...] que se están convirtiendo en núcleos de 
estandarización. 

Uno de los más recientes lenguajes de programación de 
alto nivel. Dentro de este marco, ef es uno de los 
lenguajes más polivalentes y próximos a la realidad de 
la máquina. La Bell Laboratories lo desarrolló en su 
origen para trabajar con e! sistema operativo UNIX. La 
popularidad del «C* crece día a día; ello permite 
catalogarlo como uno de los lenguajes del futuro. Su 
estructura sintáctica y semántica está edificada sobre 
conceptos tales como estructuración, jerarquizaron de 
bloques y control del flujo de datos. 

COBOL 

(COmmon Business Oriented Language. Lenguaje 
orientado a la gestión} 

Sin lugar a dudas, se trata del lenguaje especializado en 
tareas de gestión que ha alcanzado una mayor 
resonancia. El Departamento de Defensa de los Estados 
Unidos, promovió su desarrollo en 1960. A pesar de las 
críticas formuladas por algunos teóricos, expertos en 
lenguajes informáticos, su presencia es aún frecuente 
en miniordenadores y grandes equipos. No ocurre lo 
mismo en el terreno de los microordenadores; su 
representación en este campo se reduce a algunas 
versiones compiladas compatibles con el sistema 
operativo CP/M. 

FORTH 

Un lenguaje difícil de catalogar, dada su distancia 
respecto a los restantes lenguajes de alto nivel. A pesar 
de acogerse al concepto de estructuración, el FORTH 
mantiene una acusada proximidad respecto al lenguaje 
máquina; con las contrapartidas que ello supone, en 
cuanto a velocidad de ejecución y reducida ocupación de 
memoria. Otra característica reseñadle es su 
evolutividad; el FORTH permite al usuario crear sus 
propios comandos. Día a día crece su proyección en el 
ámbito de los microordenadores. En la actualidad 
existen compiladores o sem i-compilado res FORTH para 
un gran número de ordenadores personales, 

FORTRAN 

(FORmula TRANslation, Conversión de fórmulas! 

Su nombre evidencia la orientación matemática de uno 
de los más antiguos de los lenguajes que aún 
predominan en nuestros días. J. Backus lo desarrolló en 
1956 sobre un ordenador IBM 704. A pesar de su 



TMG, META/5), análisis de microfoto- 
grafías (BUGSYS), proceso y edición de 
textos (ES- 1 , SAFARI, IBMDATATEXT), 
salidas gráficas (DIALOG, PENCIL, 
GRAE), desarrollos y estudios informá- 
ticos (C), redes de datos y telecomuni- 
cación y otras muchas diferentes aplica- 
ciones. 



orientación primaria, el FORTRAN se ha revelado como 
un lenguaje adecuado para aplicaciones de gestión. 
Aunque ha perdido terreno frente a lenguajes más 
modernos, persiste su empleo de la mano de 
compiladores con versiones compatibles con sistemas 
operativos tan populares como el CP/M. 

LISP 

(LISt Processing. Procesado de listas I 
El Massachusetts fnstitute of Technology creó en 1959 
este lenguaje de alto nivel orientado a aplicaciones de 
inteligencia artificial. La programación de procesos, 
recurrentes (edificados sobre datos sintetizados en los 
pasos anteriores) es uno de los puntos fuertes del LISP. 
Dentro de su especialidad, es un lenguaje que sigue en 
plena vigencia, y del que existen compiladores para 
microordenadores y ordenadores personales. 

LOGO 

Seymour Papert, del Massachusetts Instituís of 
Technology, creó en 1976 la primera versión del 
popular LOGO, inspirada en su anterior desarrollo: el 
lenguaje LISP. 

El LOGO es un lenguaje especialmente adecuado para 
la enseñanza asistida por ordenador. Su celebridad se 
debe en gran parte a la simpática «tortuga»; el símbolo 
con cuyo desplazamiento se generan los dibujos y 
presentaciones gráficas, A pesar de su popularidad, es 
un lenguaje encasillado en el campo educativo. 
Permanece ignorado por los profesionales de la 
programación, aunque no es desdeñable su utilidad 
como herramienta para la simulación de fenómenos de 
inteligencia artificial. 

PASCAL 

(En honor del célebre matemático francés filaise 
PASCAL) 

Este es el lenguaje estructurado por excelencia, con una 
presencia más que importante en el mundo de los 
microordenadores. N. Wirth lo desarrolló en 1969, en la 
escuela politécnica de Zurich, partiendo de los 
fundamentos del ALGOL. El PASCAL es un lenguaje 
muy adecuado para generar programas comprensibles y 
claros; ello se debe a su característica de lenguaje 
estructurado que obliga a la definición previa de todos 
los parámetros en juego. 

La Universidad Californiana de San Diego, desarrolló la 
versión de PASCAL más popular en el campo de' los 
microordenadores y ordenadores personales: el PASCAL 
UCSD. 
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os próximos párra- 
fos van a estar de- 
dicados a un len- 
guaje que, por su 
historia y caracte- 
rísticas, se sale de la tónica que veni- 
mos observando en los lenguajes impe- 
rativos. De igual forma que una buena 
comida se hace partiendo de unos bue- 
nos ingredientes, en el desarrollo de 
ADA se han invertido los mejores recur- 
sos: decenas de cerebros y una buena 
cantidad de dólares. 



Una historia centenaria 

Comentar la historia del ADA supone 
remontarse al siglo XIX. Esta fue la épo- 
ca en la que vivió Charles Babbage, un 
matemático e inventor entre otras cosas 
del rastrillo delantero de los trenes de 
las películas del Oeste. Pero la gran ob- 
sesión de Babbage era la precisión ma- 
temática, lo que le llevó a idear un ar- 
tilugio mecánico al que llamó «maquina 
diferencial» para realizar cálculos poli- 
nómicos con seis decimales de preci- 
sión, lo cual constituyó un rotundo éxi- 
to en aquel tiempo. 



ADA 

Posteriormente se propuso la cons- 
trucción de un nuevo ingenio mecánico 
al que llamó «máquina analítica», el 
cual sería capaz de resolver cualquier 
operación aritmética y lógica que se le 
indicara a partir de unos datos en forma 
de tarjetas perforadas (¡un auténtico or- 
denador en pleno siglo xjx!). La máqui- 
na analítica nunca llegó a funcionar de- 
bido a dos razones: primero, los artesa- 
nos que trabajaban para él no eran ca- 
paces de fabricar las piezas con 3a pre- 
cisión necesaria y, segundo, Babbage 
murió en e! año 1 871 . 

A lo largo de esta historia, Babbage 
recibió gran ayuda y apoyo por parte de 
la condesa Augusta Ada Lovelace, hija 
del poeta inglés Lord Byron, y cuyo pro- 
mer apellido da nombre a nuestro pro- 
tagonista Ella fue la que recopiló el tra- 
bajo de Babbage a su muerte, introdu- 
ciendo sus propios comentarios y notas 
sobre los estudios de su amigo. Gracias 
a su trabajo, los primeros diseñadores 
de ordenadores de los años cuarenta se 
percataron de que eran, en realidad, los 
segundos en llegar a la meta. 

La necesidad crea el lenguaje 

En la actualidad, el mayor consumi- 
dor de software del mundo es el Depar- 



Un paso importante 
hacia la unificación 

ta mentó de Defensa Norteamericano. La 
gran mayoría de sus proyectos caen 
dentro del grupo de los «sistemas de 
computadores integrados» (ver figura). 
Estos son sistemas mecánicos o electro- 
mecánicos en los que hay uno o más or- 
denadores que tienen el control sobre 
la mayor parte de los elementos. El éxi- 
to de las misiones del Discovery, de las 
sondas Pioneer o de un sofisticado avión 
de caza no se comprende sin tener en 
cuenta que detrás de ellos hay uno o 
más ordenadores vigilando el correcto 
funcionamiento de los diversos elemen- 
tos. En estos ejemplos, el ordenador no 
es un fin, sino que está integrado en el 
conjunto como medio para conseguir los 
objetivos planteados. 

ADA surgió por la necesidad de unifi- 
car los más de 400 lenguajes y dialec- 
tos que dicho Departamento utilizaba en 
sus prqyectos, de forma que el tiempo y 
dinero invertidos en el desarrollo de 
software para uno de ellos fuera útil i- 
zable en otro de similares característi- 
cas. 

Si analizamos las necesidades que el 
Departamento de Defensa puede tener, 
obtendremos una imagen aproximada 
de lo que ADA puede ofrecer. Un pro- 
grama que dirija a un misil en su trayec- 
toria puede tener más de cien mil líneas 
de código fuente, por lo que su desarro- 




La disparidad de lenguajes utilizados en el Departamento de Defensa (DoD) norteamericano planteó 
la imperiosa necesidad de revisar y corregir la situación. Y de ahí nació el ADA. 
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En un sisjema de computador integrado la coordinación del funcionamiento de todos los elementos queda 
confiada ai ordenador u ordenadores. Este tipo de sistemas se aplica en campos tan variados como el control 
de misiles, la gestión de centrales telefónicas, o la coordinación y manejo de sondas interplanetarias. 



lío ha de ser necesariamente una labor 
de equipo. El ADA proporciona las he- 
rramientas necesarias para que cada 
programador pueda realizar su trabajo 
independientemente del resto, a la vez 
que pueda manejar subrutinas creadas 



por otros sin interferir con ellas. Ade- 
más, si en los cálculos que se realizan 
para guiar a este misil aparece una di- 
visión por cero. Jo más catastrófico se- 
ría que e! ordenador se detuviera sin 
más; pensando en situaciones de este 



tipo, ADA también proporciona las he- 
rramientas necesarias para una gestión 
cómoda —y sobre todo segura— de las 
situaciones excepcionales que pudieran 
surgir en el transcurso de la ejecución 
de un programa. 




with l_0_PACKAGE; 

procedure CONVERSION_DE_TEMPERATURA is 
use l_0_PACKAGE; 

— Este programa lee una temperatura 

— en grados Fahrenheit y escribe su 

— equivalente en Celsius 
GR_FAHR,GR_CEL: FLOAT ; 

begin 

GET(GR_FAHR); 

GR_CEL:=(5. 0/9. 0)*(6R_F AHR - 32.0); 
PUT(GR_CEL); 
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TIPO CORRECTO TIPO INCORRECTO 

Las variables declaradas con un tipo específico sólo pueden 
almacenar valores de ese tipo. Cualesquiera otros valores 
serán rechazados mediante el oportuno mensaje de error. 



With l_0_PACKA6E; 

procedure CONVERSION_DE_TEMP£RATURA is 
--parte de declaraciones 
begin 

--sentencias 

end; 



La estructura de un programa escrito en ADA es muy similar a la de otro 
codificado en Pascal. No en vano este último fue tomado como 
uno de los modelos a partir de los cuales se generó ADA. 



Estructura de un programa en 
ADA 

En Ja figura adjunta se observa la es- 
tructura de un programa en ADA, Para 
los conocedores del Pascal, esta estruc- 
tura resultará más que conocida. Las 
palabras clave están en minúsculas. El 
prefijo: 

with I O PACKAGE; 

es necesario ya que et programa (dedi- 
cado a la conversión de grados Fahren- 
heit a Celsius) utilizará los procedimien- 
tos de entrada/salida (Input/Output) 
RUT y GET, los cuales se encuentran en 
dicho paquete. Hablaremos más despa- 
cio de lo que significa un paquete. 

En la figura que muestra et programa 
completo se observa que los comenta- 
rios van precedidos por dos guiones (" — 
— "). Como ya hemos dicho, los procedi- 
mientos PUT y GET pertenecen al pa- 
quete de entrada/salida, y podríamos 
haberlos referenciado así: 

I O PAC K A G E , G ET (GR FAHR); y 

I O PACKAGE. PUT (GR CEL); 

pero no ha sido necesario por haber in- 
cluido la cláusula: 

use I O PACKAGE; 

al principio de la parte de declaraciones. 

Los tienen el mismo significado 
que en C; esto es, como terminadores 
de sentencias en vez de separadores de 
las mismas como en Pascal. La declara- 
ción: 

GR FAH R, G R C EL: FLOAT; 

declara a estas variables como de tipo 
real (valores en punto flotante). 



Los tipos en ADA 

El ADA comparte con el Pascal la ca- 
racterística de ser un lenguaje «tipa do»; 
esto es, al igual que existen unos tipos 
de datos básicos, como enteros (IMTE- 
GER), reales (FLOAT), etc., el usuario 
puede definir sus propios tipos. 

Uno de Jos objetivos prioritarios del 
ADA es ser un lenguaje seguro, en el 
que nada se escape al programador en 
el momento de la ejecución. Así, si te- 
nemos una variable "DIA" que repre- 
senta el día de la semana en que esta- 
mos, sería estúpido que tomara el valor 
—5.3E01. Es deseable que el lenguaje 
rechace la asignación a variables de va- 



lores que no tienen sentido, como el an- 
terior, Todo esto redunda en la confec- 
ción de programas más seguros. En 
nuestro caso, definiríamos el tipo 

"DIAS D E LA SEMANA" así: 

type DIAS— DE__LA__$EM AN A is 
(LUN,MAR,MIE,JUE,VIE,SAB,DOM); 
e indicaríamos que "DIA” sólo puede to- 
mar estos valores de la siguiente forma: 

DIA: DIAS DE — LA SEMANA; _ 

Taf definición tendrá lugar en la parte 
de declaraciones, de igual forma que se 
hace en Pascal. 







type EMPLEADO is ||j 

. record 

1 NOMBRE: stringd 80); ffl 

' NUMERO: range 1.1000, V 

h DIRECCION: stringd.. 160); [ 

'h end record; 








— — — ~~ — — - — s _ — ; 


Los registros permiten agrupar una 
sene de variables de tipos distintos 
dentro de un marco común. 
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type NOMBRE-MES is ( E NE, F E B,M AR, ABR ,M AY , JUN , JUL , 
AGO , SE P.OCT , NO V, D I C ); 



type FECHA fs 
record 

MES: NOMBREJÍES; 
DIA: INTEGER; 

AÑO: INTEGER; 
end record, 

NACIMIENTO: FECHA; 



NACIMIEN TO : = 



NACIMIENTO:=(ENE,23, 1 963); 



Ejemplo de asignación directa de todos los 



campos de un registro. 




procedure SUMAR-UNO (RESULTADO: out INTE6ER; X ln INTEGER) Is 
UNO: constant INTEGER := ] ; —declaración de una constante 

begin 

RESULTADO- X ♦ UNO; 
end; 



Estructuras de control 

Las estructuras de control del ADA 
son las habituales en otros lenguajes 
estructurados; están resumidas en el 
cuadro adjunto. 



function SUMAR_UN0 (X: INTEGER) retum INTEGER is 
RESULTADO: INTEGER; 

begin 

RESULTADO:» X +■ 1; 
retum RESULTADO, 
end; 




ios procedimientos y fundones son las herramientas básicas de que dispone el 
usuario de ADA para estructurar sus programas . 



• for-loop 

Equivalente al FOR-DO del Pascal. El 
bucle que aparece en el ejemplo se eje- 
cutará para valores de "CONTADOR" 
desde 1 hasta 10. Presenta la particula- 
ridad en ADA de que no es necesario de- 
clarar la variable del bucle en la parte 
de declaraciones. Consecuentemente, 
ef ejemplo no declara a "CONTADOR" 
como variable entera, 

• while-loop 



LLAMADA AL PROCEDURE 
LLAMADA AL PROCEDURE 
LLAMADA AL PROCEDURE 



i 

* 

♦ 





nmm 



* 

♦ 

♦ 



ENTRADA AL PROCEDURE ( a ) 
ENTRADA AL PROCEDURE (b) 
ENTRADA AL PROCEDURE (cj 



| Los parámetros destinados a los procedimientos del ADA pueden 
I ser pasados tal y como es costumbre hacerlo en PASCAL {al 
I cambiando su orden (b), o incluso omitiendo alguno de ellos t 
H sí en la declaración se han consignado valores por defecto (c). 



Plena similitud con su equivalente en 
Pascal 

• loop-end loop 

Esta estructura no se corresponde con 
ninguna del Pascal Simplemente per- 
mite ejecutar reiteradas veces una serie 
de sentencias. Si no se desea permane- 
cer dentro del bucle indefinidamente, 
será preciso introducir un "exít when", 
el cual hará que el control pase a la pri- 
mera sentencia que sigue a "end loop" 
cuando la condición entre paréntesis 
sea cierta. En nuestro caso (ver cuadro) 
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habríamos declarado a "FINAL" como 
de tipo BQOLEAN y su valor sería ac- 
tualizado en alguna sentencia de! bucte. 

• if-then 

Prácticamente como en Pasca!, a ex- 
cepción del que precede a "else". 
Hay que recordar el distinto significado 
de este símbolo comentado anterior- 
mente. 

• case-is 

En el ejemplo se hace referencia a la 
variable "DIA" cuyo tipo está definido 
en el párrafo anterior. Su efecto será es- 
cribir "Hoy es fiesta" sí "DIA" es DOM 
ó $AB, y "Hoy no es fiesta" en los res- 
tantes casos. 

Si hay que sacar alguna conclusión de 
todo esto, no puede ser otra que el triun- 
fo de las tesis sobre programación es- 
tructurada que sentó el lenguaje Pascal 
diez años antes que el ADA. 

En el caso del ADA, hay que seguir a 
la palabra clave "end" con otra que re- 
fleje a qué final nos estamos refiriendo. 
Los que hayan programado en Pascal 
pueden haberse encontrado en ocasio- 
nes con una ristra de ENDs de los que, 
en el caso de no haber seguido una nor- 
ma de indentación, no se sabe a ciencia 
cierta a qué estructura pertenecen. 

Seguiremos viendo más coincidencias 
con e! Pascal, redundando en la ante- 
rior afirmación. Se comprobará que las 
diferencias sintácticas que aparecen en 
el ADA están orientadas a facilitar la 
comprensión de tos listados. 



Estructuras de datos 

Todo lenguaje estructurado que se 
precie —y el ADA lo es— debe permitir 
al programador representar en su pro- 
grama los datos de la realidad de una 
forma fiel y cómoda de manejar. Esto irá 
en beneficio de una mayor corrección y 
facilidad a la hora de realizar posibles 
cambios en los programas. 

Al igual que en el Pascal, en ADA es 
posible manejar ARRAYs y RECORDS, y 
con estos últimos construir listas enca- 
denadas y árboles binarios. Así, por 
ejemplo, la siguiente línea: 

B:array|1..100) of INTEGER; 

declara un vector (B) de cien elementos 
enteros 

ADA proporciona potentes herramien- 
tas para La ¡mciabzación de arrays sin 
tener que realizar bucles, manejar sec- 
ciones de los mismos, e incluso hacer 
declaraciones de arrays cuya dimensión 
máxima esté sin especificar. Los arrays 
de caracteres se llaman «string» y se de- 
claran como sigue: 

PALABRA: STRING (LIO); 

y ahora podríamos hacer cosas como: 
PALABRA:- 'H01A J ' 

El ADA también incluye operadores 
especíales para tratar los arrays de ca- 
racteres. 




I EI usuario de un «package» sólo 
puede acceder a ía parte visible del 
mismo. Su cuerpo (bodyj queda 
oculto por las declaraciones. 



Los RECORDS son en ADA muy simi- 
lares a como lo son en Pascal En la fi- 
gura se observa un ejemplo de declara- 
ción de un registro que se podría utili- 
zar en la gestión de una empresa de no 
más de 1000 empleados; el equivalente 
en Pascal de la declaración de la varia- 
ble "NUMERO" sería: 

NUMERO: L1000; 

Los RECORDs pueden tener estructu- 
ras alternativas. (Los parientes pascába- 
nos de este tipo de registros son los RE- 
CORDS variantes}. El acceso a los cam- 



package ESTADISTICA is 

Pt: constant FLOAT :=3 1 41 592654; 

E: constant FLOAT :=2.7 1823 1828; 

procedure FACTORIAL (N: In INTEGER; FACT; out INTEGER), 

procedure DISTR_NORMAL (X: in FLOAT; VALOR: out FLOAT); 

end; 




Ejemplo de declaración de 
la parte visible de un «package». 
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package body ESTADISTICA 1$ 

procedure FACTORIAL (N; in 1NTEGER; FACT: out INTE6ER) fs 

— declaraciones de "factorial" 

begin 

— sentencias de "factorial" 
end; 



procedure DISTRJNORMAL (X: in FLOAT; VALOR: out FLOAT) is 

— declaraciones de "distr_normar 

begin 

— sentencias de ‘distr_normar 

en( j- ■ Este puede' 

1 1 -ter el 

. I cuerpo dei 

^ e 9’ n 'i p,¡pue¡e a 

— puede ser necesaria alguna sentencia para inicial i zar que se 

— el package, ESTAS se introducen aquí y se ejecutan J dace 

— cuando se crea el propio cuerpo del package. I ■ télerenaa 

ertc j. ■ en la figura 

anterior. 



pos del regisiro se realiza también a tra- 
vés del operador Como muestra la 
correspondiente figura, podemos inicia - 
lizar un registro completo en una sola 
sentencia, sin necesidad de tener que 
hacerlo campo a campo 



Procedimientos y funciones en 
ADA 

Son equivalentes a sus homónimos 
def Pascal, aunque en el ADA tienen 



nuevas características que los/las ha- 
cen más potentes. En la figura adjunta 
se tiene una declaración de cada tipo. 

Los parámetros que se pasan a un 
procedimiento pueden ser de tres tipos: 

• tipo “ín“ 

Constituyen ía entrada al procedi- 
miento. Dentro de él son como constan- 
tes y sus va fores no pueden ser modifi- 
cados. 

• tipo "out'* 

Son la salida del procedimiento 

• tipo “in out" 

Son considerados como variables cu- 
yos valores se pueden modificar duran- 
te la ejecución del procedimiento, y es- 
tas modificaciones quedan reflejadas a 
fa salida dei mismo. 

La declaración de "UNO" que tiene 
lugar en el procedimiento ilustrado se- 
ría equivalente en PASCAL a: 

CÜNST UN0=1; 

En cuanto a las funciones, éstas sólo 
admiten parámetros del tipo "¡n“ (aun- 



V □ íy 1 ;y 2 j y 3 ) 



X-y z x r Y [+ x 2 .Y 2 *x r Y 3 



r^: 


*" ~ 1 

= 0 




[ 


L 5iS * x - n i 


, - 




1 s - s * 




1 


i 


| S: = S * 


x 3 *y 3 ] 





CALCULO 

SECUENCIAL 



CALCULO 

SIMULTANEO 
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Dos formas de realizar en ADA el 
producto escalar entre vectores . 



que no es necesario decirlo explícita- 
mente como ocurre en el ejemplo). El 
uso de las funciones es análogo al que 
se hace en Pascal; apareciendo sus 
nombres en expresiones sintácticamen- 
te correctas y cuidando la compatibili- 
dad del tipo devuelto. 

Pero en ADA los procedimientos y 
funciones dan todavía más que hablar. 

Una llamada a ."'SUMAR UNO” podría 

consistir en: 

S U M A R_U N 0(1 NCRÉ ME NT ADO r 
NUMERO); 

la cual se denomina «llamada posicio- 
nal»: los parámetros de la llamada se 
sustituyen en la declaración en el mis^ 
mo orden. La alternativa que ofrece el 
ADA consiste en hacer: 

SU M AR_U N0|X=>N UIVIERO, 

R ES U LTAD 0=>l NC R E ME WTAD 0); 

Con ello especificamos el paso de los 
parámetros explícitamente, rompiendo 
la norma posicional de la llamada ante- 
rior. 

Además, los parámetros del tipo "in" 
pueden tomar valores por defecto. Si 
cambiáramos la cabecera de " J SU- 
MAR UNO"" por: 

procedure SUMAR_UN0(X: m INTEGER;=5, RESULTADO: 
out INTEGER) 

una llamada podría consistir ahora en: 

S U M ALU N 0(1 NC R E M EN TAD 0); 

y al acabar la ejecución del procedi- 
miento la variable '"INCREMENTADO” 
tendría e! valor 6 (ver figura). 



Los paquetes (packages) 

En un apartado precedente se men- 
cionó que las aplicaciones para las que 
está concebido el lenguaje ADA pueden 
ser programas de enorme longitud. 

En esta categoría de programas, 3a po- 
sibilidad de estructurarlos a base de 
procedimientos y funciones puede re- 
sultar insuficiente, ya que su compleji- 
dad puede desbordar la capacidad de 
:modu]arización» que proporcionan las 
ntadas estructuras. 

En ADA existe otra forma —no exclu- 



Lenguajes imperativos y 
declarativos 

Como ya se ha comentado al principio, el ADA puede 
considerarse el exponerte más avanzado de tos 
lenguajes imperativos. Este tipo de lenguajes se 
caracteriza porque, con ellos, se le indican al ordenador 
de forma inequívoca los pasos a seguir para ¡a 
resolución de un problema: se trata de expresar un 
algoritmo en términos comprensibles para el ordenador. 
Con los avances en los estudios sobre inteligencia 
artificial y los nuevos ordenadores de la quinta 
generación, han hecho aparición otros lenguajes cuya 
filosofía es distinta: se trata de los lenguajes 
declarativos. Con ellos se introducen al ordenador unas 
reglas generales sobre la forma en la que debe resolver 
el problema y manejar los datos. Para llevar a cabo su 
tarea, el ordenador seleccionará aquellas reglas que se 
le «antojen» adecuadas en cada momento. 

Cabe resumir diciendo que con un lenguaje declarativo 
se le dice al ordenador qúe debe hacer, mientras que 
con un lenguaje imperativo se le dice cómo debe 
hacerlo. 



yente con la conocida — de estructurar 
los programas: el «package». En uno de 
ellos se pueden incluir una serie de ti- 
pos, datos, procedimientos y funciones 
que lógicamente estén relacionados. En 
términos generales, un package ofrece 
un servicio; y como cualquier servicio, 
puede precisar de otros datos y servicios 
internos que no son visibles af usuario 
del servicio original. Un package se 
compone de dos partes: la parte visible 
y el propio cuerpo del package. Sólo la 
primera será accesible a la persona que 
quiera utilizarlo. 

Suponga que se trata de redactar un 
programa que necesita algunas funcio- 
nes matemáticas que ADA no proporcio- 
na directamente. Para empezar, estruc- 
turaremos la parte principal en forma de 
package; de esta forma nuestro trabajo 
será útil a otra persona que pueda ne- 
cesitarlo en el futuro. En la figura se ob- 
serva el posible aspecto de la parte vi- 
sible de nuestro package; es decir, aque- 
lla que podremos utilizar en el progra- 
ma. En ella realizamos Ja declaración de 



La portabilidad del ADA 

Los lenguajes a los que ADA va a sustituir son 
utilizados sobre ordenadores muy distintos, con diversos 
tipos de procesadores y mecanismos de entrada/salida 
también diferentes. Invertir la cantidad de recursos que 
se han invertido sin tener en cuenta este hecho sería 
una locura. Por ello, hay que añadir a las características 
ya comentadas del ADA su portabilidad; esto es, la 
posibiljdad de que se puedan ejecutar en distintos 
ordenadores programas escritos en este lenguaje. 
Normalmente, los mayores problemas de portabilidad se 
centran en la distinta configuración de los mecanismos 
de entrada/salida de los ordenadores. La posibilidad de 
estructurar los programas en paquetes bace que, en la 
mayoría de las ocasiones, baste con modificar el 
LQ—PACKAGE para adaptar el programa al ordenador 
en cuestión. 
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dos constantes y dos procedimientos: 
uno para el cálculo del factorial de un 
número y otro para calcular la función 
de distribución normal estándar. Estos 
elementos será posible emplearlos en 
aquellos programas a los que se indi- 
que que utilicen el package "ESTADIS- 
TICA", como se verá más adelante. 

En una de las figuras aparece tan sólo 
la parte visible. En el cuerpo (body) del 
package será preciso realizar la decla- 
ración completa de los procedimientos 
parcialmente declarados en la parte vi- 
sible. Ello se hace tal como ilustra la fi- 
gura siguiente. Lo comentado al princi- 
pio acerca del l_O^PACKAGE es apli- 
cable a cualquier otro paquete. Si en 
nuestro programa quisiéramos utilizar 
los datos o procedimientos definidos en 
el paquete "ESTADISTICA" añadiríamos 
al principio del mismo: 



use ESTADISTICA; 

y de esta forma eliminaríamos la nece- 
sidad de tener que referenciar a "FAC- 
TORIAL" así: 

ESTADISTICA, FACTORIAMX; Y); 

Ahora, bastaría una llamada tipo: 

FACTORIAL#, Y); 



Procesamiento en paralelo 

La posibilidad de controlar dos o más 
eventos cuyas acciones ocurren simul- 
táneamente tiene gran importancia en 
el tipo de trabajos para los que ADA está 



pensado. Suponga que se están diri- 
giendo dos misiles hacia un objetivo 
concreto. En esta situación sería muy in- 
teresante poder controlar los dos misi- 
les simultáneamente, de forma que si 
uno de ellos ha conseguido su objetivo 
se pueda desviar al que queda hacia un 
nuevo objetivo. 

Bajando a terrenos menos conflicti- 
vos, suponga ahora que se desea calcu- 
lar el producto escalar de dos vectores 
de tres coordenadas {ver figura). La úni- 
ca forma que conocemos hasta ahora 
para realizar este cálculo es efectuar las 
sumas y Jos productos secuencia/men- 
te, como refleja la primera zona de la 
mencionada figura. Sin embargo, en 
ADA puede hacerse que los productos 
de las coordenadas se realicen simultá- 
neamente y, una vez obtenidos estos va- 
lores, sumarlos en el siguiente paso. El 
beneficio en tiempo de ejecución para 
un vector de tres coordenadas no com- 
pensa la complejidad adicional de rea- 
lizar un procesado en paralelo; pero si 
el vector fuera de 1000 coordenadas, un 
enfoque como el descrito puede resul- 
tar muy ventajoso. 

Estas posibilidades «software» que 
nos proporciona el ADA están basadas 
en los adelantos hardware de los últi- 
mos años. Un ordenador que pueda so- 
portar eficientemente el tipo de cálculo 
expresado más arriba ha de poseer más 
de una CPU, de forma que cada una de 
ellas se ocupe, con simultaneidad, de 
un proceso. 

El uso de procesos paralelos para la 
resolución de un problema trae consigo 
a menudo muchos quebraderos de cabe- 
za. 

Volviendo a nuestro ejemplo, una 
CPU no tardará lo mismo en realizar el 
producto 1x1 que el producto 
1 543.43*1 2E5, por lo que la necesidad 
de sincronizar las diversas tareas enco- 
mendadas a cada procesador es una ne- 
cesidad evidente. Además, hay que con- 
templar la posibilidad de que se comen- 
tan errores en alguna CPU mientras se 
están realizando los cálculos, lo que 
complica aún más tanto el diseño del 
hardware como del software. 

En ADA los procesos paralelos se ex- 
presan mediante «task» (tareas), cuya 
apariencia es muy similar a la de los 
packages, Las «tasks» están acompaña- 
das por una serie de sentencias que fa- 
cilitan su sincronización. 



Estructuras de control del ADA 



for CONTADOR in I.. 10 loop 

— hacer esto diez veces 
end loop; 

whileX > EPS1L0N loop 

— este bucle se ejecuta mientras 

— - X sea mayor que EP5IL0N. Et va 

— lor de X deberá ser modificado 

— aquí si se desea salir del bucle 

— en algún momento, 
end loop; 

loop 

— se ejecutan las sentencias que 

— aparezcan aquí. 

exít when CF!NAL=TRUE); 
end loop; 



if VARIABLE >5 then 
PUTCVariable mayor que cinco 1 '); 
else 

PUTCVariable menor o igual que cinco"); 
end if. 



case DIA is 

when DOM | SAB PUTCHoy es fiesta"); 
when LUM . . VI E -> PUTCHoy no es fiesta"); 
end case, 
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c (1) 



Un lenguaje para la 
programación de 
sistemas 



os orígenes del C 
se remontan al 
año 1972, en los 
laboratorios de la 
compañía esta- 
dounidense Bell. Contrariamente a la 
tendencia actual, según la cual los 
grandes proyectos informáticos son en- 
comendados a un equipo de profesiona- 
les, C surgió de la mente de un solo 
hombre, Dennis Ritchie, que por aquel 
entonces trabajaba en la citada compa- 
ñía. 

No es posible hablar de los orígenes 
de C sin hacer mención del sistema ope- 
rativo UNIX. Los años 70 fueron testigos 
del nacimiento de UNIX, el cual, poste- 
riormente, se convierte en un estándar 
«de facto» (una norma que, sin tener ca- 
rácter de ley, es aceptada casi univer- 
salmente) para los sistemas operativos 
muti usuario en el campo de los grandes 
ordenadores. UNIX proporciona a sus 
usuarios una serie de herramientas para 
ayudar a la confección de programas; C 





I Ef C es un lenguaje de programación especialmente pensado 
para su uso en el desarrollo de software de sistemas. 



1960 



ALGOL 60 (ALGORITHMIC LANGUAGE) 
DISEÑADO POR UN COMITE INTERNACIONAL 



1963 



CPL (COMBINED PROGRAMMING LANGUAGE) 
UNIVERSIDADES DE CAMBRIDGE Y LONDRES 



1967 



BCPL (BASIC COMBINED PROGRAMMING LANGUAGE) 

1 MARTIN RICHARDS (UNIV. DE CAMBRIDGE) 



1970 



B 



KEN THOMPSON (LABORATORIOS BELL) 



1972 



DENNIS RITCHIE (LABORATORIOS BELL) 



I 



Hasta la definición deí C como 
hoy lo conocemos fue preciso 
pasar por diversos lenguajes 
más o menos potentes , 
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£7 lenguaje C se encuentra a mitad de camino entre los lenguajes 
de alto nivel y los lenguajes ensambladores. 




Ejemplo de programa confeccionado en C. En la 
pantalla se observa que el C es un lenguaje 
de los denominados «de formato libre». 



\N 

\T 

\R 

\\ 



SALIDA 1 

U 1 _2J 

SALTO DE LINEA 

SALTO AL SIGUIENTE TABULADOR 
VUELTA AL PRINCIPIO DE LINEA 
PARA ESCRIBIR UNA SOLA BARRA \ 







Algunas 
secuencias 
de escape. 



era una de esas herramientas, y muy 
pronto se convirtió en «la» herramienta, 
hasta el punto de que el propio compi- 



lador de C y la mayor parte de UNIX se 
reescribieron en dicho lenguaje. Vemos 
ya aquí un aspecto de C sobre el que vol- 



veremos más adelante: su capacidad 
para ia creación de software de siste- 
mas. 
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La historia del C 



La historia del lenguaje C es un mo- 
delo de claridad y concisión con el que 
nos gustaría encontrarnos més a menu- 
do. En la figura adjunta se refleja el pro- 
ceso que llevó a la creación del C. 

Algol es el segundo «gran lenguaje» 
de programación desarrollado en la era 
informática. Fortran fue el primero, y Al- 
gol intentó mejorarlo en sus muchos 
pumos débiles, cuidando especialmen- 
te la sintaxis y proporcionando una es- 
tructura modular. El resultado fue un 
lenguaje demasiado abstracto y general, 
por lo que nunca disfrutó de gran acep- 
tación. CPL intentó, sobre las bases de 
Algol, traer las cosas más próximas a la 
realidad; de cualquier manera, Algol to- 
davía estaba demasiado presente, por lo 
que el nuevo lenguaje seguía siendo di- 
fícil de aprender e impiementar. BCPL 
intentó solucionar estos problemas ex- 
trayendo las características básicas de 
CPL 



PRINTF ( I STR1NG DE FORMATO] J ARGUMENTO | . 



ARGUMENTO 1 , 



Formato general de la función « printf ». 



main ( ) 

{ 

¡nt b; 
int a=1 ; 

b=m¡ función (a); 

printf ("El resultado de mi función es %d\n",b); 
} 

mi función (i) 

int i; 

{ 

return (i + 1); 

} 



Programa ejemplo que ayudará a profundizar en el lenguaje C 



J 




El « string de formato es la pauta según la cual serán escritas 
las variables presentes en la instrucción «pnntf». 



Siguiendo la misma línea, B es un 
nuevo refinamiento de BCPL 
El resultado de esta evolución fue que 
los lenguajes eran cada vez más fáciles 
de impiementar y de aprender, a costa 
de haberlos restringido a dominios de 
aplicación cada vez más estrechos. La 
virtud de C está en dar un paso atrás en 
la trayectoria mencionada, añadiendo 



algo más de generalidad y manteniendo 
casi el mismo nivel de dificultad. 



¿Qué es el C? 

Como ya se ha comentado anterior- 
mente, C está especialmente pensado 



para su uso en el desarrollo de softwa- 
re de sistemas. El software de sistemas 
enlaza al hardware con el usuario final 
del equipo. El primer ejemplo de soft- 
ware de sistemas es el propio sistema 
operativo. 

Esto no quiere decir que no sea posi- 
ble hacer un programa de juegos en C 
(prácticamente se puede hacer casi todo 
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DATOS 







ENTEROS 


(INT) 



REALES ( FLOAT ) 






CARACTERES (CHAFO 



PREClioN 



Tipos de datos en el lenguaje C 




Toda variable de C nene asignadas dos características. 



con cualquier lenguaje), sino que, sim- 
plemente, sacaremos más rendimiento 
a nuestro tiempo aplicando C al desa- 
rrollo de software de sistemas. 

C es un lenguaje que permite estar lo 
suficientemente próximos a la máquina 
como para manejar directamente posi- 
ciones de memoria, bits aislados dentro 



de estas posiciones, e incluso, de algu- 
na forma, los propios registros de la 
CPU, a la vez que proporciona las es- 
tructuras características de los lengua- 
jes de alto nivel, tan importantes para 
hacer de la programación una tarea no 
tan difícil Por todo esto, cabe afirmar 
que el C se encuentra a mitad de cami- 



no entre un ensamblador y un lenguaje 
de alto nivel de tipo estructurado como 
el PASCAL. 

El camino hasta ejecutar un 
programa en C 

A pesar de que existen en el mercado 
algunos intérpretes de C, lo normal es 
que este lenguaje sea compilado. En la 
figura se observan los pasos que trans- 
curren desde la creación del programa 
por medio del editor, hasta conseguir un 
fichero con el programa listo para ser 
ejecutado. 

Uno de los objetivos de Dennis Ritchie 
al concebir el lenguaje C era la simpli- 
cidad y sobre todo la portabilidad. Por tal 
se entiende e! que un programa en C 
pueda ser ejecutado en máquinas total- 
mente diferentes, con distinta arquitec- 
tura y configuraciones de entrada/sali- 
da. Como ya se ha comentado, el propio 
sistema operativo UNIX está escrito ma- 
yoritariamente en C, y en la actualidad, 
fabricantes tan diversos como Digital, 
IBM o Honeywell incorporan como sis- 
tema operativo a UNIX. 

C no posee instrucciones específicas 
de entrada/salida. Una vez que el en- 
samblador ha generado el código objeto 
quedarán lo que técnicamente se deno- 
minan «referencias sin resolver», que 
son básicamente llamadas a subprogra- 
mas que realizan las operaciones de en- 
trada/salida. El «Jinker» tomará* dicho 
código objeto y accederá a los ficheros 
donde se encuentran las referencias, in- 
cluyendo en el nuevo código generado 
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los segmentos de programa necesarios 
para «resolver» tales referencias. 



Aparencia de un programa en C 

La estructura fundamental a partir de 
la cual se forman programas en C es la 
función. Todo programa debe tener al 
menos una de ellas y siempre habra una 
que se llame «main» —principal en in- 
glés—, Pueden estar repartidas en cual- 
quier orden a lo largo del programa y la 
ejecución empezará siempre por «main»; 
aunque no hay ninguna regla sintáctica 
que nos obligue a ello, se suele colocar 
a «main» al principio del listado. 



mi función (i) 

int i; 

í 

int efe; 
efe =3; 

return (i+cte); 

} 




Programa en C en el 
que se hace uso de 
una variable 
automática (cíe), que 
sólo puede ser 
referenciada dentro 
del campo de visión 
de " mi-función " 



1 ) 

main {} 
í 

incrementar; 

incrementar; 

incrementar; 

} 

incrementar () 

í 

¡nt x=G; 
x=x+1 ; 

pr¡ntf("%d\n", x); 
} 

SALIDA; 

1 

1 

1 



2 ) 

main () 

{ 

incrementar; 

incrementar; 

incrementar; 

} 

incrementar {) 

{ 

static ínt x=Q; 
x=x+1 ; 

printtr%d\n",x); 

} 

SALIDA: 

1 

2 

3 



I En la parte (2) de este ejemplo, la 
venable V ha sido declarada como 
estética, por lo que su valor sigue 
existiendo después de haber 
abandonado Incrementar 
Obsérvese que la t metalización de "x" 
sólo ocurre en la primera pasada por 
la citada función 



En el cuerpo de «main» nos encontra- 
mos una sentencia de salida, la cual es- 
cribe por pantalla el argurríento que tie- 
ne entre comillas dobles. Por pertene- 
cer esta sentencia al grupo de entra- 
da/salida, NO es parte de C; podría ha- 
berse llamado de cualquier otra forma 
que le hubiera gustado al implementa- 
dor del C de nuestro ordenador, aunque 



C es un lenguaje de los llamados «de 
formato libre»; esto quiere decir que, al 
igual que en PASCAL, los espacios en 
blanco no tienen significado, y son uti- 
lizados para resaltar la estructura del 
programa. Los comentarios van entre 
los grupos/* y V. En la figura adjunta 
aparece un ejemplo de programa en C. 
Como vemos, está presente «main» se- 
guido de un par de paréntesis. Toda fun- 
ción tendrá unos argumentos sobre los 
que se elaborará el resultado de la fun- 
ción. En este caso, la función «main» no 
tiene ninguno, por !o que la lista de ar- 
gumentos está vacía; los paréntesis, sin 
embargo, siguen siendo obligatorios. 
Las llaves ({}) delimitan el cuerpo de la 
función y son equivalentes a los BEGIN- 
END de Pascal. 



char x=‘f; 
main () 

{ 

printf r%c\n",x); 

> 



I Programa ejemplo 
en el que se hace 
uso de una variable 
externa. 
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OPERADORES RELACIONALES 



O 


0 


A == B 


A ES IGUALA B 


A < B 


A ES MENOR QUE B 


A > B 


A ES MAYOR QUE B 


A>= B 


A ES MAYOR 0 IGUAL QUE B 


A<= B 


A ES MENOR 0 IGUAL QUE B 


A U B 


A ES DISTINTO DE B 


O 


0 



OPERADORES LOGICOS 



0 


9 


&& 


•AND' LOGICO C' Y”) 


II 


’OR' LOGICO (“0") 


© 


© 



Las expresiones booleanas 
se forman a través de operadores 
relaciónales y lógicos. 



de escape no son escritas en pantalla, 
sólo sirven “-fundamentalmente — para 
controlar el cursor. Hay varios tipos, se- 
gún ilustra Ja correspondiente figura. De 
no haber finalizado el argumento de 
JJ printf" con la secuencia "\n", la sali- 
da habría sido la misma pero con el cur- 
sor situado af final de la línea recién es- 
crita. 

Las secuencias de escape pueden ir 
en cualquier lugar del argumento; cuan- 
do se detecta una barra invertida se ana- 
liza el siguiente carácter para ver dónde 
se sitúa el cursor y se sigue escribiendo 
el resto del argumento. Así, por ejem- 
plo: 



printff primera frase\r segunda frase"); 
da como resultado: 
segunda frase 



switch 

{ 

case 


(<expr. entera o variable char>) 


<cte. entera o carácter 1>: 
haz esto; 


case 


<cte. entera o carácter 2>: 
haz esto; 


def a u It: 


• 


> 

f 


haz esto; 



■ El comando «switch» permite elegir una acción entre varias. 



• . 




i u U u u » A BARCELONA 

pi 




w "DEFAJULT' 
VUELTA A CASA 




Un « switch » que no contenga ningún 
break» ejecutará ia secuencia 
asociada al caso correspondiente (en 
la figura , el segundo de ellos) y todas 
aquellas que la sigan hasta ef final 
del mismo. 



el nombre de "printí " está umversal- 
mente aceptado. 

La salida del programa es: 



primer programa 



con el cursor situado al principio de la 
siguiente línea. Este salto de línea lo 
produce el grupo "\n" (en algunas má- 
quinas que no tienen el símbolo "\" se 
utiliza una N), denominado «secuencia 
de escape»; como vemos, las secuencias 



ya que\ r vuelve el cursor a principio de 
línea y al seguir escribiendo el resto de 
los caracteres quedan borrados los an- 
teriores. 



Un nuevo ejemplo 

En la figura aparece otro ejemplo de 
programa en C Como ya se señaló, des- 
taca la presencia de «main» al principio 
def listado. En el cuerpo del mismo se 
encuentran dos variables, "a" y "b T \ 
ambas de tipo entero (integer), que se 
declaran con la palabra clave "int". Esta 
palabra, como otras pocas que se estu- 
diarán, es de tipo reservado; es decir, el 
usuario no puede utilizar variables ni 
funciones que se llamen "int'L Además, 
se observa que, en C, a la vez que se de- 
clara se puede ¡nicializar una variable, 
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como se hace con "a". La parte de de- 
claración de las variables podría haber- 
se escrito como sigue: 

¡ntb; 
int a; 

a=1; 



O bien como: 

int a,b; 
a=í; 



O incluso como: 
int b„a=1 ; 

siendo las cuatro formas totalmente 
equivalentes. En todo momento se eli- 
girá aquella que supongamos más ade- 
cuada para la interpretación de lo que 
se desea expresar. 

En la siguiente línea se asigna a la va- 
riable "b" el valor de la función 
"mi — función" cuando el parámetro de 
tal función vale 1 . 

La forma en la que las funciones uti- 
lizan los parámetros y devuelven valo- 



res es análogo a como se hace en PAS- 
CAL. 

Cuando el programa llega a: 
b=mi función (a); 

el valor que en ese momento tiene la va- 
riable "a" (en nuestro caso es 1 ) es co- 
piado sobre la variable "i" que está en 

la declaración de "mi función". En el 

cuerpo de "mi función" nos encontra- 

mos una sola sentencia: 

return (i+1); 



main 0 

í 

int i=2; 

switch (i) 

{ 

case t; 

prmtf{ ' Estamos en el caso 1\n”); 
case 2; 

printf ("Estamos en el caso 2\n"J; 
case 3; 

printf("Estamos en el caso 3\n"); 
default: 

printf ("Estamos en defaultXn"); 

} 

} 




Un ejemplo del canoso comportamiento de «switch». 



main() 

* char c-"b"; 
switch (c) 
case a': 

printf ("Estamos en el caso A\n"); 
break; 
case V: 

printf ("Estamos en el caso B\n'); 
break; 
case V: 

printf ("Estamos en el caso C\n"); 
break; 
default: 

printf ("Estamos en default\n'); 

} 




En el ejemplo se observa cómo solucionar el problema planteado en el Programa 2. 
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mainQ 

{ 

int i; 

for (i=0;i<=9;i=¡+1) 
printf ("%d\n",¡); 

X 

i 



CONDICION 

FINAL 




INICÍALIZACiON ACTUALIZACION 



La estructura FOR es. sin duda , e! método básico de realizar un bucle en C 



que, como se intuye, hace que 

"m¡ función" tome el valor "i+1" (en 

nuestro caso 2} y vuelva al punto de 
«main» desde donde fue llamada, asig- 
nando a "b" el valor 2. 

En el segmento de programa corres- 
pondiente a "mi función", y antes de 

comenzar el cuerpo de la misma (deli- 
mitado por {}), se encuentra la declara- 
ción: 

int i; 

Al igual que en PASCAL es preciso de- 
clarar los tipos de los parámetros de las 
funciones. La declaración equivalente 
en PASCAL de nuestra función sería: 

FUNCTIGN ¡mi función (i: integer): integer; 

En nuestro caso sólo ha sido necesa- 
rio hacer la declaración del parámetro, 
ya que en C una declaración de función 



que no lleve explícito el tipo se supone 
que devuelve un valor entero. Si por 
cualquier otra causa, "mi función" de- 

volviera un valor real a partir de un en- 
tero, la declaración sería: 

float mi función (i) 

int i; 

donde "float" — también palabra cla- 
ve— significa "floating point", que se 
corresponde con la declaración "real" 
de PASCAL. 



Más sobre «printf» 

Volviendo a «main», una vez que a "b" 
se le ha asignado su valor, aparece un 
"printf", el cual merece un comentario 



Como se indicó en un ejemplo ante- 
rior, "printf" escribirá los caracteres que 
van apareciendo entre las dobles comi- 
llas hasta llegar al "%". En este punto 
sustituirá el grupo "%d" por el valor de 
Ja primera variable que se encuentre a 
continuación del citado texto entre co- 
millas, en nuestro caso el valor de "b"; 
luego posicionará el cursor al principio 
de la siguiente línea. 

Nuestro programa dará por tanto la si- 
guiente salida: 

El resultado de mi función es 2 



La forma general de "printf" se obser- 
va en la figura adjunta. El "string de for- 
mato" irá entre dobles comillas y será 
lo que aparezca en la pantalla, además 
de los valores de los argumentos en los 
lugares indicados por los símbolos 
estos símbolos van siempre seguidos 
por una letra (juntos forman un «espe- 
cíficador de campo») que indica el tipo 
de argumento que se va a escribir. Las 
distintas especificaciones se dan en la 
correspondiente figura. 



Los tipos de datos 

En C existen cuatro tipos básicos de 
datos. De ellos sólo "int" y "float" son 
realmente básicos, los otros surgen 
como derivaciones o ampliaciones. Con 
estos cuatro tipos, y de manera pareci- 
da a como se hace en PASCAL, pueden 
formarse estructuras más complejas, ta- 



mainO 

{ 

int i; 

for (i-0;i<“9;i= + + i) 

{ 

printf r%d",¡); 
printf ("W'í; 



■ Aspecto de una estructura FOR cuando en su cuerpo 
hay que incluir más de una sentencia, 
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for {i =2; n<=1000 ; ++n) 

{ 

for (i=2; ¡<n ; ++i) /* esto es el V 
if(n%i==0} /* bucle V 

break; /* interno V 

if (i==n) 
printf ("%d\n'',n}; 




DO -WHILE 



WHILE 



La diferencia entre un «do-while» y un «whife* la establece el distinto lugar en el 
que se realiza la comprobación de la certeza o falsedad de la condición del bucle . 



les como arrays (equivalente a Jos 
"strings" de C) o records ("str ucl" en C). 

Para declarar variables se anteceden 
éstas con la palabra clave correspon- 
diente a su tipo, seguida por los nom- 
bres de las variables. Las palabras cla- 
ve son: 

int: entero 
char: carácter 
float: números reales 
doubfe: números reales en doble preci- 
sión 

Un valor real en doble precisión es un 
valor tipo "float" (real) especificado con 
mayor exactitud, aunque no tiene por 
qué ser el doble de preciso. 

Los caracteres se representan entre 
comillas simples, por ejemplo: 

char primera, última: 
primera- A'; 
ultimad; 

La diferencia entre lo que significa H A' 
y "A" se evidenciará al tratar de los 
strings. 



main() 

í 

int i r n; 



■ i Por fin un programa útil en CL ■ 

Tipos de almacenamiento 

En C una variable tiene asignado, 
-parte de un tipo de dato, un tipo de al- 
macenamiento. Para obtener una idea al 
respecto, cabe pensar en la diferencia 
ene existe entre variables locales y glo- 
ries de PASCAL. 

. anadies automáticas 

Suponga que se modifica "mi fun- 
:ón" tal como muestra la correspon- 



diente figura. En este caso, "cte" es una 
variable automática. Se caracteriza por- 
que sólo puede ser referenciada dentro 

de "mi función", esto es: su utilización 

fuera de tal ámbito daría un error. Las 
variables automáticas tienen existencia 
mientras se está en el bloque donde son 
declaradas, nada más. De esta forma 
sólo ocupan memoria cuando son nece- 
sarias, lo cual es a menudo muy venta- 
joso. La forma ortodoxa de declarar 
"cte" es la que sigue: 

auto int ote; 



Si bien, la palabra clave "auto" se 
suele omitir por la frecuencia con la que 
aparecen este tipo de variables. El com- 
pilador supone que toda variable sin es- 
pecificar el tipo de almacenamiento es 
automática. 



Variables de registro 

Su utilización y características son 
análogas a las del tipo automático. En 
realidad se trata de indicar al compila- 
dor que tal variable será utilizada con 
mucha frecuencia y conviene tenerla al- 
macenada en un lugar a! que se pueda 
acceder con facilidad, como es un regis- 
tro de la CPU, en vez de tenerla en una 
posición de memoria. La forma de de- 
clararlas es: 

register int cíe: 

Variables estáticas 

Este tipo de variables, al contrario que 
los tipos anteriores, no dejan de existir 
al abandonar el ámbito donde son de- 
claradas. Al igual que los tipos anterio- 
res sólo se pueden refereneiar en el ám- 
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■ Un * recurso abstracto» es la barrera que separa y une 
a la vez dos campos distintos. 



bito de declaración, pero el valor que te- 
nían al abandonar el bloque lo volvere- 
mos a encontrar al entrar de nuevo en 
él La figura adjunta incluye un ejemplo 
clarificador. 

Variables externas 

Una variable externa es accesible 
desde cualquier función del programa. 
Se declaran al principio del listado Por 



ejemplo, en la figura correspondiente: 
«x» es global a «main» y a cualquier otra 
función que hubiera. Estrictamente, al 
principio de «main» debería aparecer la 
declaración; 

extern int x; 

El uso de este tipo de declaraciones 
es optativo, aunque es conveniente in- 



cluirlas si el programa es muy compli- 
cado. 

La estructura ¡f-then-else 

Antes de entrar en los aspectos más 
significativos del lenguaje C H conviene 
conocer las estructuras que permiten di- 
rigir la ejecución del programa hacia di- 
versos puntos (selección) y las que, en 




■ La llamada a una función supone entrar en un túnel que puede 
resultar sin salida , en el caso de caer en un bucle infinito . 




ocasiones, obligan a apretar apresura- 
damente el botón reset del ordenador 
(bucles o iteraciones). 

La primera estructura que veremos 
será la IF/THEN/ELSE, que, en C r tiene 
el siguiente aspecto: 



^define E 2.718281828 
mainO 

{ 

double númerQ f su cuadrado; 
double al _ cuadradoí); 



if 

else 



{esta condición es cierta) 
ejecutar esto; 

ejecutar esto otro; 



número- E; 

su _ cuadrado- al _ cuadrado 
{numero); 

pri ntf("%f\ iT.su _ cuadrado); 



Se observa que no hay "then". Al con- 
trario que en otros lenguajes, "then" no 
es palabra reservada en C, por lo que es 
posible declarar variables con dicho 
nombre. 

Las selecciones "ejecutar esto" y "eje- 
cutar esto otro" pueden estar formadas 
por una única sentencia o por un grupo 
de ellas encerradas entre llaves. Esto 



double al_cuadrado (x) 
double x; 

{ 

return (x *x); 

} 



/ Atención con las declaraciones de funciones f Eí programa 
constituye un ejemplo correcto de declaración 




En el lenguaje C el camino hacia las funciones es de una sola dirección. 



mismo es lo que se hacía en PASCAL 
sin más que sustituir las llaves por BE- 
GIN-ENDs. 

La condición que está entre parénte- 
sis a continuación del "if" se forma a 
base de «operadores relaciónales» y 
operadores lógicos»; ambos tipos refle- 
jados en el cuadro adjunto. 

Los operadores relaciónales son más 
o menos familiares para el aficionado, 
excepto el último, que en otros lengua- 
es se representa con el símbolo "O". 
Al examinar Ea lista de operadores lógi- 
cos nos puede surgir una pregunta: ¿por 
qué && y no simplemente &? La razón 
es que los operadores simples como & 



o | están reservados para operaciones 
con bits, de las que se hablará sucinta- 
mente en otro momento. En cuanto al 
orden de evaluación, los operadores re- 
laciónales se evalúan siempre antes 
que los lógicos, por lo que: 

a<b && b-c 

es totalmente equivalente a: 

(a<b) && (b=c) 

Dentro de los lógicos tienen mayor 
preferencia las expresiones relaciona- 
das por && que las que lo están por ||. 



La estructura swicht 

No siempre son tan sencillas las co- 
sas para que existan sólo dos alternati- 
vas a una pregunta. Para estos casos 
más complicados se dispone de la es- 
tructura "swicht" (equivalente al CASE 
del PASCAL), Su aspecto queda refleja- 
do en la figura adjunta. 

AJ llegar a un "swicht" se evalúa la 
expresión que está entre paréntesis y se 
exploran secuencialmente los "case" 
hasta encontrar uno cuya constante 
coincida con el resultado obtenido al 
evaluar la expresión. Si no hay ninguna 
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coincidencia, se ejecutará la acción que 
sigue a "default". Hay que resaltar que H 
al contrario que en el CASE de PASCAL, 
una vez que ha ocurrido una coinciden- 
cia con algún "case", se ejecutará la ac- 



ción asociada a él y el resto de las op- 
ciones que lo siguen, hasta llegar al fi- 
nal de la estructura, señalado por la 
Esta forma de operar del "swicht" 
puede sorprender hasta el punto de du- 



dar de su utilidad. Para obviar este pro- 
blema se hace uso de la sentencia 
"break", la cual obliga a pasar el con- 
trol justo a continuación del bloque de- 
limitado por { . Al incluirla en un 
"swicht" se obligará inmediatamente a 
pasar el control al punto donde está el 
" 1 " que indica el final del "swicht", tal 
y como se observa en la correspondien- 
te figura. 



Los bucles en C 

El lenguaje C brinda tres tipos de es- 
tructuras para realizar bucles, que tie- 
nen sus equivalentes en los FOR-DO, 
REPEAT-UMTIl y WHILE-DO del PAS- 
CAL. 

• Eí bucle " for " 

En la figura adjunta se incluye un pro- 
grama cuya acción es escribir en colum- 
na los diez primeros números naturales. 
Como se observa, a continuación de la 
palabra clave "for" se encuentra un pa- 
réntesis con tres parámetros que con- 
trolan el bucle. El primero de ellos es 
el de inicialización y sólo se ejecuta en 
la primera entrada al mismo. El central 
expresa la condición para la cual el bu- 
cle seguirá ejecutándose. El último pro- 
porciona la actualización de la variable 
de control del bucle. 

En el ejemplo, tal actualización es un 
simple incremento de una variable. Para 
realizar incrementos de variables en C 
podemos recurrir a una de las siguien- 
tes expresiones: 

¡=¡fí; 

[++; 

++i; 

M; 

Mientras que para decrementar una 
variable se pueden utilizar las mismas 
expresiones cambiando "+" por 

La diferencia entre la segunda y la 
tercera de las formas indicadas reside 
en que, en la segunda, primero se utili- 
za la variable y luego se incrementa, 
mientras que las cosas ocurren en or- 
den contrario en la tercera. Aunque en 
el ejemplo propuesto ambas formas da- 
rán el mismo resultado, se verán otros 
ejemplos en los que el elegir una u otra 
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forma es muy importante. La cuarta for- 
ma puede ser útil cuando haya que in- 
crementar una variable con un nombre 
muy largo, o una expresión compleja, ya 
que sólo hay que escribirla una vez. 
Como es habitual, si el cuerpo del bu- 
cle está formado por más de una sen- 
tencia hay que encerrar a éstas entre í } 
(ver figura). 

• El bucle "while" 

Su forma es: 

while (esto sea cierto) 
hacer esto; 

Nuevamente, el cuerpo del "while" 
debe ir encerrado entre llaves si está 
formado por formado por más de una 
sentencia. 

• El bucle "do-while" 

Su equivalente es el REPEAT-UNTIL 
del PASCAL y presenta el siguiente as- 
pecto: 

do 

esto; 

while (esta condición sea cierta); 

La diferencia entre este y el anterior 
reside en que el bucle "do-while" siem- 
pre es ejecutado al menos una vez (hay 
que observar dónde se produce el «test» 
para decidir si se ejecuta de nuevo o no), 
mientras que el "while” puede no ser 
ejecutado ni una sola vez. 

Las condiciones que tanto en uno 
como en otro caso aparecen a continua- 
ción de la palabra "while” se forman de 
manera análoga a como se hace con las 
de las estructura "if-then-else". 



Afianzando conceptos 

A modo de resumen de las estructu- 
ras descritas cabe proponer el ejemplo 
práctico de la figura adjunta. 

Como se vio al principio del capítulo, 
el lenguaje C está todavía en su más 
tierna infancia y hay muchos aspectos 
del mismo que son claramente mejora- 
bles. Tal sería el caso de los operadores 
lógicos, reduciendo el símbolo doble a 
uno simple, por ejemplo. Además, se ha 
. ísto que el "swicht" de C es mucho me- 



main() 

{ 

int x = 6; 

printf{"%d \ rT,factorial( x )); 

} 

factorial (nj 
int n; 

{ 

if {ii==1) 
return (1); 
else 

return {n*factorial(ii_1H; 



Un ejemplo de función recursiva. 



nos potente que su equivalente en el 
PASCAL. Como sucede en otros cam- 
pos, cuanto más se aligere el trabajo de 
la máquina, más se tendrá que cargar 
de trabajo el hombre; con el C se pre- 
tende tener un lenguaje compacto, cuyo 
compilador sea fácil de diseñar y ocupe 
poca memoria. Haciendo que sea el pro- 
gramador quien se ocupe de ciertas ta- 
reas que debieran estar a cargo del com- 
pilador (caso del "swicht"), se puede 
conseguir el objetivo arriba citado. 

Volviendo al ejemplo, se trata de un 
programa que calcula los números pri- 



El siempre presente 

Los conocedores del Lenguaje Pascal están 
acostumbrados a «dejar caen' un T al final de casi 
todas Jas sentencias. 

En C íambián hay que utilizar el T muy a menudo, 
aunque su significado respecto a Pascal varía 
sutilmente. 

En Pascar, un T se utiliza como separador de 
sentencias, mientras que en. C se usa como terminador 
de sentencias. Por esta razón, nunca va un T antes de 
un ELSE en Pascal, ya que entonces el compilador 
tomaría a ELSE como principio de una nueva sentencia, 
y esto no está de acuerdo con la sitaxis del Pascal. En 
C, sin embargo, si aparecerán antes de los "else" ya 
que, por su definición sintáctica, siempre ha de seguir 
una sentencia a un If 1 , y una sentencia debe ser 
terminada por un por lo que si a continuación hay 
un "else", éste se verá precedido del dichoso símbolo. 



mos entre 2 y 1000. Tal vez sea conve- 
niente recordar que un número primo es 
aquél que sólo es divisible por sí mismo 
y por la unidad; y esta será la propiedad 
que se utilizará en el programa. Se par- 
te de dos bucles, uno que generará can- 
didatos a primos y otro que se dedicará 
a comprobar la citada propiedad. Obser- 
vando el bucle interno de la figura, se 
deduce que si se ha detectado que «n» 
(candidato) es divisible por un número, 
se abandona dicho bucle para compro- 
bar si el divisor encontrado es ef propio 
«n», en cuyo caso será un número pri- 
mo; si no es así, se retorna al bucle ex- 
terior para asignar a «n» un nuevo can- 
didato 

Salta a la vista que el uso de "break" 
no se restringe al ámbito de los 
"swicht". Además, se ha introducido el 
operador que calcula el resto de la 
división entre dos números. Si este res- 
to es cero, el primer número es divisi- 
ble por el segundo. 

Algo más sobre funciones: 
el «recurso abstracto» 

Una función puede compararse con 
una «caja negra», en la que se introdu- 
cen ciertos valores, y la cual devuelve 
otros valores de salida como resultado 
de procesar los primeros. Siempre que 
se crea una función, aparte de estar 
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Lista de palabras clave del lenguaje *C» 



auto 


double 


if 


static 


break 


else 


int 


struct 


case 


entry 


íong 


swicht 


char 


extern 


register 


typedef 


continué 


for 


return 


unión 


defsult 


fíoat 


short 


unsigned 


do 


goto 


sizeof 


while 



Específícadores de campo para «printf* 


Valores enteros: 


%d escribir argumento como valor decimal 
*o escribir argumento como valor octal 
%x escribir argumento como valor hexadecimal 


- 


Valores reales: 


%f escribir el argumento en la forma ddd.ddd 
%e escribir el argumento en la forma d.ddd+dd 




caracteres 


: %c escribir un carácter 




c a d^ e n a s 


: %s escribir un string de caracteres 





contribuyendo a dar un carácter modu- 
lar al programa, se está haciendo refe- 
rencia e un «recurso abstracto»: un re- 
curso {un medio, una facilidad) que no 
posee la máquina en sí y que el usuario 
le entrega a partir de ese momento. 

Veamos un ejemplo: 

En C no existe operador de potencia- 
ción, así que si se quieren realizar ele- 
vaciones al cuadrado, habrá que dotar 
al ordenador de un recurso (abstracto, 
porque en realidad no lo tiene) tal como 
éste: 

double aL-Cuadra<fo(x) 
double x; 
í 

return |x*x); 

} 

Aún a pesar de sus connotaciones fi- 
losóficas, no hay que perder de vista que 
los recursos abstractos son pilares fun- 
damentales sobre los que descansa la 
metodología de la programación estruc- 
turada. 

Unas líneas más arriba se ha decla- 
rado una función que devuelve un valor 
en doble precisión. En una de Jas figu- 
ras aparece un programa que la utiliza 
Como se observa, sí se utiliza en un ám- 
bito {«main» en nuestro caso) una fun- 
ción que no devuelve un entero, es pre- 
ciso declarar en tal ámbito el tipo de Ja 
función: 

double ai cuadrado (]; 



Esto es necesario porque/como ya se 
comentó, todo identificador del que no 
se especifica el tipo se supone entero. 
Si no se hubiera declarado 'al cuadra- 

do" en «main», el compilador supondría 
que iba a devolver un entero, lo cual 
está en desacuerdo con la posterior de- 
claración. 

Otro punto importante: en PASCAL, 
los parámetros de un procedimiento po- 
dían pasarse «por valor» o «por referen- 
cia» {estos últimos también llamados 
J 'VAR". Los parámetros VAR establecen 
una doble vía de comunicación entre la 
parte llamadora» y la «llamada», ya que 
que el parámetro actual es modificado 



I iOS punteros son un 

recurso muy frecuente en 
(a programación en lenguaje C. 



al finalizar la ejecución del procedi- 
rneinto. En C todos los parámetros pa- 
sados to son por valor, es decir, el úni- 
co medio que hasta ahora conocemos de 
comunicación en C entre una función y 
su «llamador» es a través de "return". 
Como luego se verá, la forma de «imi- 
tar» a un parámetro VAR es a través de 
los punteros. 

Para finalizar, hay que mencionar que 
al igual que en PASCAL, una función 
puede llamarse a sí misma recursiva- 
mente. La recursividad es una propiedad 
muy importante y que sirve para muchí- 
simas más cosas que para calcular fac- 
toriales. 



Los punteros del C 

C es un lenguaje que hace un uso in- 
tensivo de punteros Hay ocasiones en 
las que la única manera de expresar un 
cálculo es a través de punteros. Otras 
veces el uso de punteros reduce el ta- 
maño del código objeto de los progra- 
mas , aumentando su velocidad de eje- 
cución. No obstante, el uso indiscrimi- 
nado de punteros puede conducir a la 
creación de monstruos (programas) irre- 
conocibles incluso para su propia ma- 
dre (el programador). Hay que procurar, 
por lo tanto, ser cuidadosos con su uso. 

Conviene recordar en este punto que, 
por muy inspirados que sean los nom- 
bres otorgados a las variables y por muy 
estructurado que resulte el programa, 
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main() 



char *pmt; 
char Ietra1,letra2; 

Ietra1= y - 

punt= Sdetral; /* pasolV 
Ietra2^ *punt; /* paso2 V 
printf ("%c\n'Metra2|; 




PUNT" 



Punteros: viaje ai país de los trabalenguas. 



ras Ja compilación sólo quedarán direc- 
: roñes y datos. Es bueno, por tanto, sa- 
Der qué pasa con Jas direcciones y Jos 
catos. 

Un puntero es una variable que no 
contiene un dato, sino que se utiliza 
:ara apuntar a una variable; es decir, 
zontiene la dirección de memoria en la 
:ue se encuentra la variable. Puede ac- 
zederse al dato contenido en fa variable 
- rectamente, a través de su nombre, o 
^directamente, a través de un puntero 
: ue Ja señale. 

Con un puntero se pueden hacer bá~ 
= eamente dos cosas; 



1« B Almacenar en el puntero la direc- 
ción de una variable {operador &)■ 

2.- Acceder al valor contenido en Ja di- 
rección señalada (operador*). 

Para comenzar, tomemos la siguiente 
declaración de puntero; 

char *punt; 

Ello significa que "puní" señalará ha- 
cia una posición de memoria que con- 
tiene un carácter o de otra manera, que 
"*punt" contendrá un carácter. Sustitu- 
yendo "char" por otros declaradores de 



tipo se tendrán punteros a distintos ti- 
pos, Ahora, podemos declarar e iniciali- 
zar algunas variables: 

char Ietra1,fetra2; 
leí ra l = J y J ; 

Al hacer: 

punNkletral; 

ia variable "punt" está apuntando hacia 
"letra 1 ", y al hacer; 

Ietra2=*punt; 

Tetra2" contiene ef dato al que apun- 
taba "punt". Todos estos pasos se ven 
reflejados en la correspondiente figura. 

El resultado de todo este ir y venir es 
análogo al que se hubiera obtenido ha- 
ciendo: 

Ietra2=letra1; 

una vez que se asignó a "letra 1 " el va- 
lor y t 



Las constantes simbólicas 

C permite el uso de las llamadas -constañtes 
simbólicas» para que Jos listados sean inteligibles y les 
programas fácilmente modif i cables. 

Al igual que en le sección CONST de Pascal, una 
constante simbólica permite, con la sola modificación de 
' una línea, variar la acción del programa para que pueda 
ser utilizado en distintas aplicaciones. 

Las constantes simbólicas se pueden colocar en 
cualquier parte del programa, aunque suelen situarse al 
principio def mismo. El ejemplo universal de constante 
simbólica es el número Pf. 

En Pascal se incluiría: 

CONST PI-3.14159; 

En C, una constante se especifica de la siguiente forma: 

ffdefine Pl 3.14159 
(cuidado con poner eí ;) 

La misión def preprocesador, del que se habló en el 
capítulo precedente, consiste en analizar ef programa 
para encontrar la palabra Pl y sustituirla por todo 
aquello que sigue al segundo espacio en blanco de la 
declaración «Idefine». De ahí que no haya que incluir el ¡ 
signo ■;» en tal declaración. 
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main () 

{ 

íirt a=5,b=10; 



printfp/od %d\n",a,bf; 
cambra (&a,&b); 
print#("%d %d \rT,a,b}; 



cambia fpx,py) 
int *px,*py 

{ 

int temporal; 



temporal^ *px; 
*px- *py; 
*py= temporal; 



I Un parámetro tipo VAR se pasa a través de la dirección de la variable, 
no de su valor concreto . La pantalla adjunta muestra el 
resultado de la ejecución del programa adjunto. 



Argumentos de funciones y 
punteros 

En este punto, se está ya en disposi- 
ción de tratar el problema dei paso de 
argumentos por referencia. $e puede 
plantear el problema de requerir una 
función que devuelva dos valores, esto 
no puede lograrse tal como se venía ha- 
ciendo hasta ahora, a través de "re- 
turn". Suponga una función que debe 
intercambiar los valores de dos varia- 
bles enteras. Si ya se tienen las varia- 
bles declaradas y asignadas, no basta- 
ría con escribir: 

cambia (a,b|; 

en donde "cambia" ha sido definido 
como sigue: 

cambia (x r y¡ 
int x,y; 

{ 

int temporal; 
temporal^; 

^v; 

y=temporal; 

} 

ya que como en C los parámetros son 



pasados por valor, a "x" e "y" les son 
asignados los valores de "a" y "b HH , pero 
al finalizar "cambia" las variables origi- 
nales permanecen inalteradas. 



Lo cierto y lo falso en el «C» 

Una constatación inmediata en que en el lenguaje C no 
existe el tipo booleano en si. Esto se debe a que para el 
C todo aquello que sea distinto de cero es cierto. 
Suponga el siguiente segmento de programa: 

if (es cierto) 

función! 0; 
else 

funcibn2(); 

donde la variable «es cierto^ se ha declarado de tipo 

«int*. Si al llegar al 4» su valor es cero r se ejecutará la 
función 2 («funeión2». Por el contrario, si su valor es 
cualquier otro excepto el mencionado, se ejecutará 
«funciónl ». Otra forma de tratar variables booleanas es 
a través de. un par de sentencias <#define«; 

#define TURE 1 
ir define FALSE 0 

Es posible definir «TRUE» con cualquier valor distinto de 
cero, aunque se suele tomar el valor «1* por 
simplicidad. 




La solución consiste en pasar las di- 
recciones de "a" y "b" en vez de sus va- 
lores, realizando en "cambia" un inter- 
cambio de contenido de direcciones tal 
como se observa en la ilustración. Al 
llamar a "cambia" desde «main» se asig- 
nan a "px" y a "py" las direcciones de 
"a" y "b", no sus valores como se venía 
haciendo hasta ahora. Una vez en el 
cuerpo de "cambia", cada vez que se es- 
cribe "*px” o "*py" se hace referencia 
a los contenidos de las direcciones a las 
que apuntan "px" y "py”, que son las de 
"a" y "b". Aunque resulte complicado a 
primera vista, se recomienda ai lector 
que trabaje sobre este ejemplo y se dé 
cuenta de que realmente se consigue el 
efecto deseado. 

Cabe hacer algún comentario adicio- 
nal sobre las funciones en C. En primer 
lugar, las funciones no tienen por qué 
llevar obligatoriamente un "return"; 
puede pensarse en lo innecesario de un 
"return" en una función que simple- 
mente ejecuta un bucle para producir un 
retardo. Por lo demás, como consecuen- 
cia de la no existencia del "return", el 
tipo de la función es irrelevante, ya que 
no es asignado el resultado a ningún va- 
lor, como ocurre en la llamada a "cam- 
bia" que se produce en «main». 
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C (y 2) 



Estructuras de datos: 
arrays y registros. 




En C, un array declarado como « int a[3 /> no contiene el elemento a¡3). Dicho array 
contendrá tos elementos a[0}, a[1] y a[2). La razón se comprenderá plenamente al 
estudiar la relación entre punteros y arrays. De momento , basta con considerar que 
los arrays comienzan con el elemento cero , en lugar de con el uno. 



1 objetivo del pre- 
sente capítulo lo 
constituye el estu- 
dio de las estruc- 
turas de datos del 
lenguaje C. Como ya se ha comentado, 
con el «C» se pretendía obtener un len- 
guaje compacto y fácilmente implemen- 
:abie en casi cualquier ordenador. Por 
esta razón, las estructuras de datos de 
este lenguaje destacan por su sencillez, 
aunque suficientes para ía mayoría de 
as aplicaciones. Antes de comenzar con 
su estudio es conveniente ampliar co- 
nocimientos relativos a punteros. 



Enteros y aritmética 

_os punteros son piezas clave en el 
desarrollo de casi cualquier programa. 
~:r esta razón, las operaciones con y 
“^:re punteros no se reducen a lo ya 
rescrito en el capítulo precedente, sino 
además está permitido: 

— Incrementar o decrementar un pun- 
tero. 

— Sumar o restar un entero a un pun- 
tero. 

— Comparar y substraer dos punteros, 
^ el supuesto de que ambos señalen al 

— smo tipo de objeto. 

Cuando se incrementa o decrementa 
-r puntero, el lenguaje C tiene en con- 
s aeración el hecho de que no todo los 
: pos de datos ocupan igual número de 
icsrciones de memoria, tal como se ob- 
serva en el cuadro adjunto. 

Cabe recordar que toda la información 
contenga el ordenador ha de que- 
: = ' reducida a ristras de ceros y de unos, 
-unidos en grupos de ocho. Suponga 
sentencia como la que sigue: 

zrar *caractpunt; 

t cual declara a "caractpunt" como 
i.^tero a un carácter. Haciendo refe- 
T^ria a la zona de memoria represen- 
;= en el cuadro «Los datos en memo- 
5 puede lograrse que "caractpunt» 
ít-nte a la dirección del primer carác- 
f de la misma a través del operador 
L tal como se expuso en el capítulo 
accedente. 

5 ahora se ejecuta la orden: 



++caractpunt; 

"caractpunt" se incrementa en una uni- 
dad, y pasa a apuntar al siguiente ca- 
rácter almacenado. 

Deforma análoga, puede lograrse que 
un puntero señale al primer entero de 



la zona de memoria (posición 1125} de- 
clarando: 

int *enteropunt; 
esta vez, af hacer: 




Es posible manipular arrays a base de 
subíndices, como es habitual en otros 
lenguajes, o a base de punteros y su aritmética, 
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SUBINDICES 



USÍA 

LISTA + 1 

LISTA +2 

PUNTEROS 



se tiene un puntero que señala a un va- 
lor entero y se ejecuta: 

enteropunt=enteropunt+3; 

el verdadero incremento que sufrirá 
'enteropunt" será de seis unidades y su 
efecto será el de saltar tres enteros con- 
secutivos de la zona de datos sobre la 
que actúe. 

En los próximos apartados se analiza- 
rán ejemplos concretos de la aritmética 
de punteros. 



I EÍ nombre de un array es, de hecho , 
un puntero orientado ai elemento 
cero del mismo . 



++enteropunt; 

su valor no se incrementará en una uni- 
dad, sino en dos, para apuntar al si- 
guiente entero. 

Análogamente, si aparece una sen- 
tencia en la que hay que incrementar el 
valor de un puntero para señalar hacia 
un dato de tipo real, el incremento debe 
ser el necesario para «saltar» la zona de 
memoria ocupada por el dato y quedar 
apuntado al Inmediato posterior. 

Todo lo expuesto para las operaciones 
de incrementar o decrementar es apli- 
cable al caso de una suma o diferencia 
de un puntero y un número entero. SI 



La estructura array 

Si hay una forma sencilla de agrupar 
una serie de datos es por medio de un 
array. La manipulación de los arrays en 
C es muy parecida a la habitual en los 
restantes lenguajes de alto nivel; sus 
peculiaridades aparecen al relacionar 
los arrays con los punteros. 

Veamos en primera instancia cómo se 
declara un array. En el lenguaje C no 
existe una palabra clave al efecto, sino 
que, por ejemplo: 

int a[6]; 

es la declaración de un array de nom- 
bre «a» que contendrá seis elementos 
enteros. De igual forma: 

float num[1 00]; 



declara un array de cien elementos que 
serán números expresados en punto flo- 
tante. Para referenciar un elemento 
concreto del array se hace seguir al 
nombre de un subíndice; este subíndice 
puede ser una constante, una variable, 
o una expresión cuya evaluación sea un 
número entero, encerrado entre corche- 
tes. Así, volviendo a la declaración de 
«a», para asignar el valor 10 al tercer 
elemento se procederá como sigue: 

a[2]= 1 0; 

¿Hemos dicho tercer elemento? Más 
bien parece el segundo. En la figura ad- 
junta aparece la justificación de esta 
aparente incongruencia. 



Representación interna 

Suponga un segmento de programa 
como el siguiente: 

int lista[3J; 

1ísta[G]-2; 
lista[1 ]= 5 
üsta[2]--3; 

El compilador de «C» al reconocer la 
declaración de "lista" en la primera lí- 
nea, reserva tres espacios de memoria 
consecutivos a partir de ^na dirección 




ARRAY 




STRUCT 



La diferencia entre arrays y 
«struct» la establecen los 
tipos de elementos que uno 
y otro pueden contener Los 
arrays sólo puede incluir 
datos de un mismo tipo i 
mientras que las « struct » 
carecen de esta restrieción. 
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de comienzo. Según esto, el acceso a un 
array puede interpretarse como tomar fa 
dirección de comienzo y sumarle el des 
plazamiento necesario para acceder al 
elemento designado: para el elemento 
cero el desplazamiento es cero, para el 
primero es uno, y así sucesivamente. 

¿No tiene este método un gran para- 
lelismo con Ja técnica de los punteros? 
De hecho, en el C, el propio nombre de 
un array ("lista" en nuestro caso) cons- 
tituye un puntero que señala hagia eJ 
elemento cero del mismo. 

Por esta razón, y considerando lo di- 
cho acerca de la aritmética de punteros, 
Jas expresiones: 

lísta[1 ] 

*(lísta + 1) y 

son absolutamente equivalentes. 

Normalmente, para referenciar al se- 
gundo elemento del array se utilizaría 
ia expresión "lista[1]" f pero como "lis- 
ia" es un puntero al elemento "lista[Or, 
que es un entero, la expresión "lista + 1 " 
apuntará dos posiciones más adelante 







MARTIN 

21/3/63 



C 



V 






^define MAXLONG 20 

struct fecha 
int día; 
char mes[4J; 
int año; 

} ; 

struct empleado { 

char nombre! MMLÜNG1; 
char sexo; 

struct fecha nacimiento; 

} : 



El programa adjunto muestra un ejemplo 
de anidación de «struct». Su contenido 
coincide con las primeras líneas 
de un programa para gestionar la 
nómina de una empresa. 




EMP[2] 



STRUCT 

EMPLEADO 



Empleado 


Sexo 


Sueldo 


Angel 


h 


20000 


Pepita 


m 


20000 



struct empleado { 
char nombre[20]; 
char sexo; 
int sueldo; 

} ; 



main( ) 

{ 

int i; 

struct empleado emp[2J; 

emp[OÍ nombre = “Angel"; 
emp[ü].sexo=Y; 
emp[Q].sueldo=20000; 
printfT Empleado 

for(i=Q;¡ < =T;++i} 
pr¡ntf(" %s 



emp[1 ] .nombre == "Pepita"; 

emp[1J,sexo-'m'; 

emp[1].sueldo=20OOO; 

Sexo Sueldo\n rr }; 

%c % d\n",emp [i J. nombre, 

emp[Í|sexo,emp[i].sueldo); 



Para ef tratamiento de la nómina pueden almacenarse datos sobre los empleados 

f suponemos que nuestra empresa ttene tan sólo dos) en un array; cada 

elemento de este último será una «struct» con los datos de la persona correspondiente. 
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EMP 
í EMP+1) 



EMP[Q] 



EMP[l] 



l 3 PASADA POR 
EL BUCLE "POR" 



EMP- FTR EMP 
(EMP+1) 





EMP[0] 






EMP[l] 





2- FASADA POR 
EL BUCLE "POR" 



EMP-PTR 



struct empleado { 
char nombre[2ÍJ]; 
char sexo; 
int sueldo; 



main( ) 

{ 

struct empleado emp[2J; 
struct empleado *emp_ptr; 

empfOj, nombre = "Angel"; empL1J.nombre= "Pepita": 

emp[0].sexo=TT; emp[1],sexo='m'; 

emp[0]sueldo= 20000; emp[1J. sueldo =20000; 

printfT Empleado Sexo Sueldo \n"); 

foiiemp_ptr=emp;emp_ptr<=emp + 1;++emp ptr) 
printf(" %s %c %d\n' r , 

emp_ptr— >uomb re, empptr_> sexo, emp ptr > sueldo); 



(los enteros ocupan dos posiciones de 
memoria). Ahora puede aplicarse el 
operador J '*" que da el contenido de fa 
dirección a la que apunta lo que sigue 
a su derecha, obteniendo e! mismo re- 
sultado en ambos casos. Lo descrito 
queda patente de un modo gráfico en la 
correspondiente figura. 

Al igual que los oíros tipos de varia- 
bles, los arraye pueden ser inicializados 
también en el momento de su declara- 
ción. La única restricción sobre este 
punto es que tal micialización sólo se 
podrá llevar a cabo cuando su tipo de al- 
macenamiento sea externo o estático. 

Una ¡metalización de array tiene el si- 
guiente aspecto: 

static int a[6]= ! 1,2,3,4,5,61 ; 

Como ejemplo del uso de arrays y de 
tnicialización de uno de ellos con alma- 
cenamiento externo, en el cuadro adjun- 
to se incluye un programa que calcula 
la suma de los elementos de un array. 



Arrays de caracteres 



Nueva versión del programa de nóminas. 



Tienen su correspondencia en los lla- 
mados «string de caracteres» del BASIC; 
también en «O se denominan así. Su 



ARRAY 



A[0] 


A [i] 


A [2] 


A [3] 



P 



MAXIMO N" 
□E ENTRADAS 






LISTA ENCADENADA 





cLh 




S P problema derivado de operar con un número desconocido de datos de entrada puede 
solucionarse con una lista encadenada que sustituya ai clásico array. 
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Un árbol binario tiene importantes aplicaciones en algunos problemas de ordenación de listas. También existen situaciones en las 
que una estructura de este tipo resulta ideal para representar los datos del problema. 



ooooooooooo 

CINE SOF' 

ooooooooooo 


o o o o 1 

re 

O O O O 1 


I | ENTRADA/SALIDA | | 


HOY 

ESTRENO 

* * * 




■m ni 

EL 

LENGUAJE | 

"C" 

* * * 




Para facilitar la actuación del C en 
cualquier entorno, las operaciones de 
entrada/salida son gobernadas por rutinas 
(como xprintf») independientes del 
programa. Estas son manipuladles por el 
usuario para adaptarlas a cada entorno de 
trabajo específico . 



“anipulación es análoga al resto de los 
zrtays. Se representan encerrando los 
nacieres constituyentes entre dobles 
:c millas: 

Esto es un string" 

El ejemplo propuesto coincide con un 
r ng de 18 elementos. Sin embargo, 
?-:re ías comillas sólo aparecen 17 le- 

-5- Ello se debe a que se introduce un 



carácter nulo (que se representa por ‘\0' 
y es un sólo carácter) al final del array, 
lo que permite manipularlo fácilmente, 
como se observa en el cuadro que acom- 
paña al texto. El programa incluido en 
el referido cuadro escribe en columna 
las letras que componen el "string" y 
su equivalente ASCII. 

Es preciso destacar la diferencia que 
existe entre V y "x" La primera expre- 
sión representa a la letra x, mientras 



que la segunda es un string formado por 
dos caracteres: V seguido por J \0\ Hay 
que recordar también que '\0' es com- 
pletamente diferente a '0'. El primero se 
representa en binario como 00000000, 
mientras que la representación binaria 
del segundo es 001 10000. Por esta ra- 
zón, se puede decir que no existe pro- 
piamente el string nulo en C; el string 
"" consta en realidad de un carácter, el 
nulo 
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I En realidad no estamos tan cerca del 
ordenador como parece. Unas partes 
descansan sobre otras , siendo el hardware 
el último eslabón de la cadena. 



Utilidad y manejo 
de registros 

A menudo nos vemos en la necesidad 
de agrupar datos de diversa naturaleza 
bajo un nombre común; en estos casos 
la estructura array se nos queda peque- 
ña, ya que con ella sólo es posible agru- 
par datos de iguales características (ver 
figura). 

Pensemos en un programa que nece- 
site seguir la pista de distintos hechos 
ocurridos en distintas fechas. Para al- 
macenar las fechas puede crearse un 
"struct" (registro o estructura) de !a si- 
guiente forma: 



struct fecha { 
int dia; 
char mes [4j; 
int año; 
í ; 

El equivalente para los conocedores 
del Pascal sería: 

TYPE fecha- RECORD 

dia: integer; 
mes: array [1 .3] of 
char; 

año: integer 
END 

y cuidado con la dimensión de "mes": 
recuerde el carácter nulo que se intro- 
duce al final de un array para saber 



cuándo termina. En el lenguaje C es ne- 
cesario contar con él en todo momento. 

En el ejemplo se declara una estruc- 
tura de nombre "fecha" y que conten- 
drá tres elementos: dos de tipo entero y 
otro que es un array de caracteres. 

Es importante reparar en que por el 
momento no se tiene aún ninguna va- 
riable de este tipo. Sólo se ha indicado 
al compilador que se prepare para lo 
que puede venir, al igual que ocurre en 
Pascal con la sección TYPE. 

Las declaraciones de estructuras sue- 
len ir al principio del programa, al igual 
que los "# define". 

Para declarar una variable que sea 
una estructura de! tipo "fecha" se hará 
lo siguiente 




main() 

í 

char un_car; 
int un_ent; 

scanfP/oc %d" 8iiin_ear r &un _ ent); 
printfT%c %d n" # un_car J un_ent); 



■ El strmg de formato es la plantilla según 
la cual se analizará la entrada realizada 
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struct fecha nacimiento; 



Ahora sí disponemos ya de la variable 
"nacimiento” que tiene la estructura co 
mentada. 

La forma de acceder a los elementos 
de esta variable es análoga a como se 
hace en Pascal: 

nací miento, día =21; 
nací miento.mes= "mar"; 
nacimiento. año= 1 963; 

Ahora se tiene en "nacimiento" la in 
formación sobre una fecha determinada 
el 21 de marzo de 1963. 

Al igual que con los arraye, se pue- 
den ínicializar "struct" directamente, 
siempre que estas sean externas o es- 
íáticas, nunca automáticas. Suponiendo 
que estamos en alguno de estos su- 
puestos, la variable "nacimiento" podrá 
ser inicializada de la siguiente forma: 

struct fecha nacimiento = 

{21 /'mar", 1963 í ; 

Las "struct" se pueden anidar entre 
ellas. Suponga el clásico ejemplo de la 
nómina de empleados de una empresa. 
Las primeras líneas de un programa en 
C para gestionar esta nómina podrían 
:omar un aspecto semejante al que apa- 
rece en la figura adjunta. Si se define 
una variable "emp", que designará a un 
empleado concreto, como sigue: 

struct empleado emp; 

se accederá a! mes de su nacimiento de 
¡a siguiente forma: 

pnntf("%s n”, emp. nacimiento, mes}; 

Por otra parte, las variables "struct" 
aueden ser declaradas en el momento 
ie hacer la propia declaración de la 
"struct": 

struct fecha 

nt dia; / # Se declaran «nacimiento» V 

char mes [4]; / # y «muerte» del tipo V 

int año; /Mecha» V 

nacimiento, muerte; 



Debido a la existencia de esta segun- 
da forma de declaración, es muy impor- 
tante no olvidar el que sigue al últi- 
mo " } " de la declaración de la "struct". 



r- — — 
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main() 

{ 

for(;;} 

putchar{getcharf )); 

} 




Además de ilustrar el funcionamiento de « getchar » y «putchar», el ejemplo muestra 
la forma de realizar un huele infinito en C. Los caracteres realzados corresponden a 
la entrada realizada por el teclado; los otros constituyen 
la salida del programa por pantalla. 



Son numerosos los casos en los que 
un «matrimonio» entre arrays y "struct" 
resulta muy conveniente. En la figura 
adjunta se tiene un ejemplo de este tipo 
de unión. 



Hasta aquí todo habra resultado sen- 
cillo para los que ya conozcan el len- 
guaje Pascal. Sin embargo, pronto apa- 
recerán nuevas emociones.,. Demos de 
nuevo la bienvenida a los punteros. 



Los datos en memoria 



En el lenguaje «C», los caracteres ocupan una posición 
de memoria, mientras que los valores enteros necesitan 
dos para su almacenamiento. El espacio ocupado por un 
valor en punto flotante, en simple o doble precisión, 
depende de las características del compilador. 




En la figura aparece una zona de memoria que contiene 
dos caracteres en las posiciones 1 123 y 1 1 24 y dos 
enteros que comienzan en las posiciones 1 1 25 y 1 1 27 r 
respectivamente. 

Conocer el tamaño del espacio ocupado por las 
variables ayudará a entender mejor la filosofía de 
trabajo del lenguaje «C». 
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Cuando aparecen las 
restricciones 

En las versiones actuales de los com- 
piladores de C existen dos restricciones 
que están en vías de ser eliminadas en 
las próximas versiones del lenguaje. La 
primera restricción es que no se pueden 
manejar las "struct” como variables 
normales, en el sentido de que, tenien- 
do dos estructuras "a" y J 'b" del mismo 
tipo, no es posible hacer "a = b", sino 
que habría que asignarlas campo a cam- 
po. Además —y aquí está la segunda 
restricción— tampoco se puede pasar 
una estructura completa como argu- 
mento de una función, aunque sí se 
pueden pasar campos individuales. 

Por el momento, nuestra mejor arma 
esté en los punteros: de igual forma que 
podíamos acceder a Jos elementos de un 
array considerando que el propio nom- 
bre del array era un puntero al elemen- 
to cero del mismo, podemos obtener la 



dirección de comienzo de nuestra es- 
tructura, y pasar esta dirección como pa- 
rámetro a las funciones que lleven a 
cabo la tarea requerida. 

Para afianzar todo esto nos remitimos 
al programa «Nueva revisión del progra- 
ma de nóminas» que, básicamente, es 
una reforma del programa precedente. 

Ambos entregan la misma salida, 
aunque el modo de operar es distinto 
Observe la declaración: 

struct empleado *emp_ptr; 

Con ella declaramos a "emp_ptr" 
como un puntero hacia la estructura 
''empleado'', de igual forma que en 
otras ocasiones hemos declarado pun- 
teros a enteros, caracteres o números 
reales (ffoat). 

Preste atención ahora al bucle "for". 
Este empieza inícializando el puntero 
"empt — ptr" a "emp"; esto es, se hace 

que "emp ptr" señale al elemento 

cero del array "emp". Con este estado 



de cosas se entra en el cuerpo del bu- 
cle, que escribirá los campos de la es- 
tructura "emp[0]" r los cuales han sido 
referenciados como sigue: 

emp — ptr — >nombre 

emp ptr— >sexo 

emp — ptr— >sueldo 

en lugar de serlo a través del típico *7\ 
Ello se debe a que ahora estamos utili- 
zando un puntero para acceder a una es- 
tructura en vez de emplear su nombre, 
en cuyo caso utilizaríamos el El sím- 
bolo '' — >' r está compuesto por los sím- 
bolos de resta y de «mayor que» y se tra- 
ta como una unidad. 

En otras palabras, como en la prime- 
ra pasada, "emp__ptr” está apuntando 
a "emp[0]", las expresiones: 

emp__ptr— >nombre y 
emp[0]. nombre 

son equivalentes. 

En la siguiente pasada, "emp__ptr" es 



scanf ( string de formato, direc.1, direc2 J ... ) j 




Aspecto de la función «scanf». 



Suma de los elementos de 
un array 

En el programa adjunto, se observa que el parámetro 
"mtx" de la función "suma" no contiene ningún 
subíndice en la declaración; basta con indicar que se 


int matriz[5]- { 1,2,3,4,51; 
intdim=5; 


main() 

( 

intsum; 


sum=suma(matriz,dim); 


trata de un array de enteros. Para el lenguaje C, esta 


printf("La suma vale%d n", sumí; 


información es suficiente. La condición del bucle 


} 


"wfiile ' en "suma" está para abreviar, no para 


sumafmtx/tamano) 


confundir El efecto sería el mismo si tal condición 


int mtx[],tamano; 


fuera, simplemente, 'tamañoMT y la primera 


{ 


sentencia del bucle fuera ,J — tamaño" 


int parcial 0; 




while(— tamano>=0) 




parcial z pa reía 1+ mtxfta mano]; 
return(parcial); 

í 



incrementado en una unidad, es decir, 
lo suficiente como para que señale ha- 
cia "emp[1 ]" y el proceso se repite por 
última vez. 



Estructuras 

autorreferenciadas 



Este nombre tan poco expresivo se re- 
fiere a aquellas estructuras que sirven 
para crear y manipular las «listas enca- 
denadas» y los «árboles binarios». 

Estos dos «entes» informáticos (por 
darles un nombre) resuelven de mane- 
ra elegante y sencilla problemas que de 
otra forma serían muy difíciles de tratar. 
Hay ocasiones en las que la cantidad de 
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El lenguaje C también incorpora un 
conjunto de operadores adecuados 
para realizar operaciones 
lógicas a nivel de bit. 



datos de entrada para un determinado 
programa no se conoce de antemano. Sí 
no disponemos de facilidades para crear 
listas encadenadas tendremos que re- 
currir a dimensionar un array, el cual en 
unas ocasiones se nos quedará peque- 
ño y en otras nos sobrará espacio, des- 
perdiciando memoria. Con una lista en- 
cadenada se ocupará sólo el espacio ne- 
cesario en cada momento, pagando el 
precio de una mayor complejidad en el 
tratamiento de la información (ver figu- 
ra}. 

La gestión de listas encadenadas en 
C es bastante más compleja que en Pas- 
cal, por lo que no la trataremos aquí. 
Simplemente mencionaremos que una 
sta encadenada se construye en torno 
a un "struct" como e! que sigue: 

struct elemento l 
int valor; 

struct elemento *siguiente; 

en donde "elemento. valor" será el dato 
almacenado y "elemento siguiente" un 
uuntero que servirá de enlace a la si- 
guiente estructura. 

Los árboles binarios se pueden cons- 
truir en tomo a una estructura como la 
seguiente: 

struct nodo { 

char pa labra[1 0]; 
struct nodo * derecha; 
struct nodo ^izquierda; 



Como se observa en la figura, un ár- 
coi binario está compuesto por nodos 



como el de arriba, enlazados por punte- 
ros a otros nodos. 

La biblioteca 
de entrada/salida 

Un buen número de las obras dedica- 
das a tratar un determinado lenguaje de 



programación comienzan explicando 
cómo realizar una salida por la pantalla 
a través de instrucciones del tipo PRINT, 
WRITELN o r en nuestro caso, "printf'L 
Mosotros optamos por ese camino, pero 
pronto nos detuvimos dado que la en- 
trada/salida en C es algo particular. 
Las funciones que invocan la salida 
como las anterioremente citadas, o la 
entrada como son INPUT o READLN, 



Cuando el mundo tiene más 
de una dimensión 

En un lenguaje como el C, cuyo campo de aplicación se 
centra en el desarrollo de software de sistemas, los 
arrays de una sola dimensión o lineales son los más 
utilizados, y en especial los arrays de caracteres. Sin 
embargo, también se pueden manipular arrays de dos o 
más dimensiones. Estos son tratados de igual forma que 
los lineales. 

Un array bidimensional se declara, por ejemplo, como 
sigue: 



00 — primer elemento 
01 
02 
10 
11 

1 2— último elemento 

La inicialización de este tipo de arrays se realiza de la 
siguiente forma: 



■3 MUI 50Ü ; 



int ¡42131 

Y puede accederse al elemento (1,2) de la siguiente 
forma: 

En memoria, la representación es lineal, estando más 
próximos a la dirección de comienzo los elementos cuyo 
primer subíndice es más bajo, esto es: 
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X«1: | O | O | 1 | 1 | O | 1 | O | O | 32+16 +4=52 



16 + 8 + 2 1 ; 26 x4 

Ü 

!+ 16+4=52 1 



Cómo multiplicar de una forma rápida a base de ordenar ei desplazamiento de los 
bits. Distintos desplazamientos dan distintos productos por potencias de dos. Por ef 
extremo der echo se van introduciendo ceros a medida que se desplazan 
los bits del multiplicando. 



constituyen una de las partes más com- 
plicadas de la impfementación de un 
lenguaje, y están fuertemente condicio- 
nadas por el entorno del compilador: el 
sistema operativo. 

Ya se ha comentado que el lenguaje 
C se diseñó para su uso en el entorno 
del sistema operativo UNIX, y, por lo 
tanto, la entrada /salida se efectúa apo- 
yándose en las facilidades que propor- 
ciona éste. Previendo la posible utiliza- 
ción del C en otros entornos, las rutinas 
de entrada/salida —entre las que está 
"printf" — se encuentran en un fichero 
separado del resto del programa, el cual 
es gestionado por e\ «linker» para produ- 
cir el código ejecutable. De esta forma, 
basta con manipular el fichero de las ru- 
tinas de entrada /sal ida adaptándolo a 
nuestro entorno concreto. Los nombres 
de estas rutinas no suelen cambiar, 
aunque sí su contenido. 

La rutina que de forma general permi- 
te realizar las entradas por teclado se 
denomina "scanf". En la figura se repro- 
duce el aspecto de esta función, eí cual 
es muy parecido a! de "printf", sí bien 
el "string de formato" tiene un signifi- 
cado distinto. Ahora especifica el tipo de 
entrada que se va a teclear. 

En el ejemplo ilustrado, el formato de 
"scanf" está indicando que la entrada 



estará compuesta por un carácter, un 
número indefinido de espacios en blan- 
co (esto lo señala el espacio en blanco 
que hay entre "%c” y "%d" y un entero. 
La única forma de que una vez comen- 



zada la ejecución de scanf" nos salga- 
mos de ella, es introducir los ciernen- 
tos especificados en el string de forma- 
to. Por etlo, si se accionara fa teda de 
retorno de carro, o ENTER, a continua- 
ción del carácter "a", el programa se- 
guiría ejecutando "scanf" esperando la 
segunda entrada. 

Las variables hay que referenciarlas a 
través de su dirección, no de su conte- 
nido, por lo que es imprescindible el uso 
del operador "8¿" que da Ja dirección de 
la variable que lo sigue. 

Moro almente, encontraremos a 
"scanl demasiado torpe y difícil de ma- 
nejar para nuestros propósitos concre- 
tos, por Jo que lo mejor será redactar 
nuestras propias funciones de entra- 
da/salida. En este sentido será útil la 
función "getchar" la cual detiene la 
ejecución de un programa hasta que se 
pulsa una tecla, devolviendo en ese mo- 
mento ef carácter correspondiente. Esta 
función no necesita ningún argumento, 
por lo que una Ifamada a la misma tie- 
ne el siguiente aspecto: 

carácter =getchar(); 

El fiel acompañante de "getchar" es 
"putchar" que, cómo no, escribe en pan- 



Strings de caracteres 

En el ejemplo se observa cómo en la declaración e 
inicialización de «cad» no ha sido necesario incluir entre 
corchetes el número 6 r correspondientes a su longitud. 



Al llevar explícita Ja inicialización, el compilador se 
encarga de asignar automáticamente fa dimensión 6 a 
*cad». De igual manera, en el ejemplo relativo a la suma 
de los elementos de un array se podría haber suprimido 
el 5 en la declaración de «matriz. Esto también es 
válido para ¡nicializaciones de arrays estáticos. 



ehar cad(]- "Cadena"; 
main(j 

{ 

ínti-0 

whi!e(cad[i]í= # \G' ) 

{ 

printf("%c- %d/n",cad(Jj}; 
++í; 

¡ 



]¿L 



0=67 

a-97 

d=1 00 

e=101 

n=11Q 

a=97 
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talla el carácter especificado en su ar- 
gumento. Por ejemplo; 
putchar('a'); 

escribe el carácter 'a H en la pantalla. En 
la figura adjunta aparece un ejemplo de 
utilización de ambas funciones. 

Todas estas funciones son tan sólo 
una parte de las que debe contener la 
biblioteca de entrada /sal ida del compi- 
lador que se esté manejando. Hay otras, 
si bien las principales son las mencio- 
nadas. 



Las operaciones con bits 

El lenguaje C incorpora una serie de 
operadores que permiten realizar opera- 
ciones lógicas con los bits de un entero 
o de un carácter, pero nunca con una va- 
riable de tipo "float" o "double". Estos 
operadores son los siguientes: 

8t and lógico 
or lógico 

" or exclusivo lógico (xor) 
desplazamiento a la izquierda 

- desplazamiento a la derecha 

— complemento a uno 

Así, por ejemplo: 
c=n&OX7F; 

~ace que se ponga a cero el bit más sig- 
nificativo de «n». Se observa que ha sido 
necesario anteponer al numero hexade- 
:imal 7F los caracteres "OX", precisa- 
mente para indicar ai compilador que se 
trata de este tipo de constante, 

Jna expresión del tipo: 

x<2; 

"ace que los bits de «x» sean desplaza- 
dos dos posiciones a la izquierda, relle- 
nando los espacios que van quedando a 
a derecha con ceros. El resultado es 
análogo al que se hubiera obtenido con 
a expresión; 

*=x*4, 

Pero la rapidez de ejecución del pri- 
mer método es muy superior a la del se- 
gundo. 



a) b) 
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En ambos ejemplos de ejecución, «sumar» es el nombre del fichero que contiene el 
programa en C; programa que, previamente, habrá sido compilado. 



El operador ,J ~") $e aplica de la si- Hay que poner especial cuidado en no 
guíente forma: confundir los operadores "&&" y ni 

"||" y '1". Un carácter de más o de me- 
— x; nos tiene en C gran importancia. 



y, simplemente, cambia cada cero de «x» 
por un uno y viceversa. 



Cómo decir mucho en pocas 
palabras 

Enfrias ocasiones a lo largo de esta obra se ha 
mencionado que uno do los objetivos que se planteó el 
lenguaje C fue la concisión; es decir, expresar un 
cálculo en el menor número posible de líneas de 
listado. En La práctica resultará que para aquel que no 
conozca un poco el lenguaje, los programas en C se le 
antojarán escritos en lengua de otra galaxia. 

Si todavía no está convencido de que el C es un 
lenguaje en el que la concisión es una característica 
primordial, observe la expresión siguiente: 

x=1?y=2;y=3; 

Para el que no haya visto este tipo de notación con 
anterioridad, le resultará muy difícil deducir que es 
completamente equivalente a la siguiente estructura: 

iflx-1) 

V=2; 

else 

y = 3; 



La escasa importancia de ser 
«main» 

Se ha comentado que «main» era como 
cualquier otra función de! programa, y 
que sólo se diferenciaba en que siem- 
pre era la primera en ser ejecutada. Sin 
embargo, al contrarío que la mayoría de 
las funciones, no lleva ningún paráme- 
tro... ¿Seguro? Vamos a ver que ello es 
falso: «main» sí puede llevar paráme- 
tros. 

Para ejecutar un programa una vez 
compilado, basta teclear el nombre del 
fichero generado por el compilador. 
Pensando en un programa para sumar 
dos números, se puede tener la situa- 
ción del primer ejemplo de la figura 
(caso a); en él, el programa acabará Ne- 
gando a algún punto en el que pida los 
valores de los números a sumar para, 
posteriormente, continuar la ejecución. 
En el lenguaje C cabe la posibilidad de 
pasar datos al programa en el momento 
de Ñamarlo (segundo ejemplo de la mis- 
ma figura, caso b), sin necesidad de es- 
perar a que ésta los pida. 
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La mejor victona es una retirada a tiempo,,, aunque sea 
esgrimiendo ia orden GOTO. 



En el segundo caso, «main» tiene dos 
argumentos. Su cabecera tendría el si- 
guiente aspecto: 

main(argc r argv} 
nt argc; 
char*argv[]; 



} 

"argc" es el número de palabras (gru- 
pos de caracteres separados por blan- 
cos) que había en la línea que invocó al 
programa; en nuestro caso, como se ha 
tecleado: 

sumar 1 2<r.c> 

su valor sería lres."argv" es un puntero 
a un array de stríngs de caracteres el 
cual contiene tales palabras. En nues- 
tro ejemplo su contenido es: 

argv[0] .... "sumar" 
argv[1] .... "1" 
argv[2] .... "2" 



Puede utilizarse esta información 
para calcular los valores a sumar sin 
necesidad de tener que incluir en el pro- 
grama las rutinas necesarias para rea- 
lizar fa entrada por teclado. 

Realmente, no tiene tanta importan- 
cia llamarse «main». 



La sentencia "goto" 

Los saltos incondicionales que repre- 
sentan las sentencias "goto" son inne- 
cesarias en un lenguaje estructurado 
como el C, aunque hay ocasiones en las 
que llevar al límite este «estructuralis- 
mo» sólo puede acarrear dolores de ca- 
beza; una sentencia "goto" en el mo- 
mento y lugar adecuados puede ahorrar 
mucho trabajo. 

Un ejemplo interesante sobre el uso 
de esta sentencia lo constituye ia nece- 
sidad de «salir» de una estructura muy 
anidada, como ia representada en la fi- 
gura adjunta. Si al llegar a un determi- 
nado nivel nos encontramos con un 
error que obligue a abandonar todo el 
proceso, lo mejor es atajar por lo fácil 
con un "goto". 

La sentencia ""goto" tiene el siguien- 
te aspecto: 

goto<etiqueta>; 

donde <etíqueta> es un nombre como 
los utilizados para las variables, segui- 
do del signo":". Al ejecutarse el ""goto"", 
el control bifurcará a las sentencias que 
siguen a la etiqueta. 

Cabe recordar que et Pascal, el len- 
guaje estructurado por excelencia, in- 
cluye la semencia "GOTO" 1 , lo cual es 
una buena excusa para utilizar esta or- 
den en otros lenguajes no tan estructu- 
rados. 



La unión hace la fuerza 

En C existe un tipo de variable llamado «unión» con el 
cual se pueden definir variables que, en distintos 
momentos, pueden contener por ejemplo, un entero, un 
carácter o un rea!, aun teniendo el mismo nombre. La 
«unión» son muy parecidas a las «struct» en cuanto a 
sintaxis, manejo y restricciones. Por ejemplo: 

unión ejemplo t 
int entero; 
float real; 
í dése; 

declara a «dése» como capaz de contener un real o un 



entero; ello equivale a tener en un mismo programa las 
declaraciones: 

int dése; 
float dése; 

Cualquiera de estos dos tipos (que sabemos que ocupan 
distinta cantidad de memoria) podrá ser asignado y 
utilizado en expresiones con «dése». 

Dedicar unas líneas tan sólo a la «unión» en un curso 
introductorio está fuera de lugar, pero el objetivo de 
hacerlo no es otro que resaltar de nuevo lo cerca que 
estamos del hardware al programar en lenguaje C, aun 
disponiendo de estructuras de control avanzadas como 
«while», swhile-do», «for», etc. 
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P AD Al Un P ionero de los 
U U D U L lenguajes informáticos 



I COBOL es un 
lenguaje que, 
aunque tenga una 
escasa presencia 
en el terreno de 
los ordenadores personales, ocupa un 
puesto muy relevante en el panorama 
pasado y presente de la informática. 



El propósito del COBOL 

El COBOL lleva la orientación que se 
le quiso dar desde su nacimiento en su 



propio nombre. En efecto, la palabra 
COBOL está formada por las iniciales de 
«COmmon Business Oriented Langua- 
ge», esto es, «lenguaje general orienta- 
do a los negocios». 

Una aplicación típica del COBOL pue- 
de consistir en la gestión de la nómina 
de empleados de una empresa. La tarea 
encomendada al programa será que, 
cada vez que sea ejecutado a fin de mes, 
calcule el sueldo que va a recibir cada 
empleado según sus aumentos, cotiza- 
ción, etc., imprima el cheque que reci- 
birá cada trabajador y dos resguardos, 
uno para la emprea y otro para el inte- 
resado. Esta aplicación se caracteriza 
por: 

1. Bajo volumen de datos de entrada. 



De hecho, el programa sólo necesitará 
nuevos datos si se ha contratado a al- 
guien por primera vez en el transcurso 
deJ mes; aunque si la empresa es gran- 
de, el número de nuevos contratados 
puede resultar elevado. 

2. Poco volumen de cálculo. Las ope- 
raciones que hay que realizar con los 
sueldos se reducen a sumas, restas y al- 
gún tanto por ciento. 

3. Gran volumen de salida. Aunque 
en la impresión de Jos cheques existen 
pocas variantes, no sucede lo mismo 
con los resguardos, en los que pueden 
ir especificados los trabajos realizados, 
horas ocupadas y un sinfín de datos 
aplicables tan sólo a una parte de los 
empleados. 





■ El lenguaje COBOL nació en 1959, orientado específicamente a la gestión administrativa ya los negocios. El objetivo de sus 
« creadores era convertirlo en un lenguaje universal para todos ios ordenadores. 
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En lenguaje COBOL 
(COtvmon Busstnes 
Oriented Language) pueden 
encontrarse miles de 
aplicaciones orientadas a la 
gestión administrativa. El 
soporte de almacenamiento 
Idisquete, casete, etc ) varía 
según el ordenador a que 
el programa esté destinado. 















Estas tres características son en gran 
parte comunes a la mayoría de las apli- 
caciones informáticas que requieren los 
«negocios», COBOL se ajusta a este tipo 
de requerimientos de una forma que no 
lo hacen otros lenguajes; esta es una de 
la razones por las que su importancia se 
mantiene hoy en día. 



A vueltas con la historia 

Aunque nuestro protagonista es ape- 
nas cuatro años más joven que el FOR- 
TRAN, encontramos en él característi- 
cas que lo alejan mucho de su compa- 
ñero científico. Su nacimiento se produ- 
jo a raíz de una reunión convocada por 
el Departamento de Defensa de los Es- 
tados Unidos y en la que estaban repre- 
sentadas las mayores empresas infor- 
máticas de la época (aígunas de las cua- 
les sobreviven hoy, como IBM, Honey- 
well o Burroughs), instituciones y el 



ejército. Esta convocatoria recibió el 
nombre de CODASYL, siglas de COnfe- 
rence on Data SYstems Lenguajes (Con- 
ferencia sobre los lenguajes para siste' 
mas de datos). 

De CODASYL surgió el COBOL 60. 
Posteriormente fueron apareciendo va- 
riantes de este COBOL, manteniendo 
siempre la misma estructura y senten- 
cias aunque añadiendo otras nuevas; así 
se llegó hasta el COBOL ANSI 74 y el 
COBOL 80. Más recientemente, han 
aparecido el CISCOBQL, con facilidades 
para el manejo de pantallas, y el RM- 
CQBGL, especialmente diseñado para 
su uso en sistemas basados en micro- 
procesador. 

Con el COBOL nació un concepto que 
se ha mantenido en la mayoría de los 
lenguajes que aparecieron con posterio- 
ridad; la separación entre el programa 
propiamente dicho y los datos del mis- 
mo, Esto trae consigo indudables bene- 
ficios en la depuración y mantenimien- 
to de programas (ver cuadro adjunto}. 

En la actualidad, el COBOL mantiene 



su vigencia debido en parte al gran nú- 
mero de aplicaciones que han sido de- 
sarrolladas con él y a Ja experiencia ad- 
quirida por los programadores; aunque 
también constituye una razón primordial 
el hecho de que los requerimientos de 
fas aplicaciones de negocios se adaptan 
muy bien a sus prestaciones. 

Por lo demás, la circunstancia de que 
una empresa cambie el ordenador que 
está utilizando no significa tirar por la 
ventana todo el software desarrollado 
hasta la fecha. Los programas escritos 
en COBOL tienen el «don» de la trans- 
portabilidad, esto es, son fácilmente im- 
plementables sobre distintas máquinas. 



Como todos los lenguajes de progra- 
mación, el COBOL consta de una serie 
de elementos (variables, constantes, 
verbos), utilizables para la escritura y 



Elementos del lenguaje 
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definición del programa, y un conjunto 
de reglas sintácticas que rigen la com- 
binación de los anteriores para la for- 
mación de sentencias. Puesto que un 
compilador está diseñado para recono- 
cer única y exclusivamente un grupo de- 
terminado de comandos ordenados de 
una forma precisa, cualquier cambio, 
voluntario o inadvertido, en alguno de 
estos elementos ocasionará la genera- 
ción de un mensaje de error. Por su- 
puesto, la corrección sintáctica del pro- 
grama indica únicamente que no se ha 
violado ninguna de las reglas de escri- 
tura, pero no que vaya a funcionar co- 
rrectamente. 

Dentro de la estructura del COBOL 
pueden distinguirse los siguientes ele- 
mentos fundamentales: 

* Palabras reservadas (ver tabla), que 
el programador no puede nunca alterar 
o modificar, y que reciben el nombre de 
«verbos». Su misión es indicar al orde- 
nador la función que debe realizar con 
los datos que contenga la instrucción en 
la que se encuentran. En general, se 
trata de palabras o abreviaturas anglo- 
sajonas, como ADD (sumar), WR1TE (es- 
cribir) o PERFORM (realizar). 

* Nombres proporcionados por el 



usuario para la identificación de varia- 
bles, constantes o zonas del programa. 
Deben, a ser posible, indicar la natura- 
leza de su misión (es, por ejemplo, mu- 
cho más clarificadora una variable lla- 
mada SALDO que otra que se denomi- 
ne S), y cumplir, entre otras, las siguien- 
tes reglas: emplear únicamente carac- 
teres alfanuméricos (A-Z y 0-9) o guio- 
nes, en número menor o igual que 32, 
y no emplear guiones al principio o al fi- 
nal, ni contener espacios en blanco. 

* Símbolos aritméticos, condiciona- 

les y de puntuación, empleados para 
distintas tareas según su condición. El 
primer grupo comprende los operadores 
aritméticos fundamentales (+, *, /, y 

** (exponencíación), el segundo los ope- 
radores de relación «, > e =), y el ter- 
cero los distintos elementos empleados 
en la definición de sentencias del len- 
guaje: el punto, utilizado al final de to- 
das las instrucciones; la coma, separa- 
dora de operandos dentro de una ins- 
trucción; el punto y coma, empleado en 
la separación de cláusulas; las comillas, 
que marcan los literales no numéricos, 
y los paréntesis, para enmarcar subín- 
dices o expresiones, 

* Literales, que puede ser de dos ti- 



pos: numéricos y no numéricos. Cada 
uno de ellos ha de cumplir una serte de 
normas, como son el no emplear más 
de diceciocho dígitos los primeros y más 
de ciento veinte los segundos, e ir, es- 
tos últimos, encerrados entre comillas. 

Un caso particular de literales no nu- 
méricos lo constituyen las llamadas 
constantes figurativas, ZERO, ZEROES, 
SPACE, SPACES y QUOTE, que no son 
sino constantes dotadas de nombre pro- 
pio. 



Estructura de un programa 
COBOL 



Un programa en lenguaje COBOL se 
encuentra jerarquizado de la siguiente 
forma: Divisón, Section, Paragraph, 
Sentence, Statement, Word y Character. 

En la figura adjunta se muestran las 
cuatros «divisíons» (zonas o divisiones) 
en las que se divide todo programa CO- 
BOL, intentando buscar un equivalente 
Pascal a las mismas. Estas cuatro divi- 
siones deben aparecer siempre, y en el 
mismo orden que refleja la figura. Sus 




En la actualidad existen 
numerosas versiones o 
dialectos del COBOL 60 
original. Cada uno de ellos 
supone una mejora o 
adaptación a necesidades 
del usuario, pero siempre 
dentro de la orientación 
primera: ¡a gestión 
administrativa y los 
negocios. 
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SOLO SOLO SOLO 

DATOS PROGRAMA BUS 



I Una característica del COBOL 
compartida por la mayoría de los 
lenguajes actuales , es que los datos y 
el programa conviven sin mezclarse. 



propósitos son ios que se describen a 
continuación; 

* Identification División 

El compilador no producirá ningún có- 
digo objeto a partir de ella. Es algo pa- 
recido a tener una serie de líneas REM 
en un programa BASIC. Su contenido 
especifica datos concernientes a! pro- 
gramador, propósito y estructura del 
programa, fecha de realización, etc. Es 
importante que esta zona esté clara- 
mente especificada y sea lo más deta- 
llada posible, de forma que pueda aho- 
rrarse tiempo a la hora de modificar el 
programa, bien sea el mismo u otro 
equipo de programadores. 

El formato de esta división es: 

IDENTIFICATION DIVISION 

PfiQGRAM-ID. nombre-del-programa. 

AUTHOR. comenta nos-sobre-el -a u 
tor. 

JNSTALLATION. comentarios-sobre- 
instalación. 



DATE-WRITTEN. fecha-de-creación. 

DATE COMPILED. fecha-de-compila 
ción. 

SECURITY. comentarios-sobre-segu 
ridad. 

REMARKS. comentanos-en-general. 

El nombre del programa es un conjun- 
to de caracteres que servirá para la 
identificación del mismo. Su formato es 
similar ai de los nombres de procedi- 
mientos y etiquetas. Como caso gene- 
ral, sólo los ocho primeros caracteres 
son tenidos en cuenta por el compila- 
dor, que simplemente ignora los demás, 
caso de que los haya. 

De todas estas líneas, sólo las dos pri- 
meras son obligatorias. El resto puede 
ser incluido o no. 

* Environment División 

Esta zona del programa es la única 
que depende de la máquina concreta so- 
bre la que se vaya a compilar y ejecutar 
el programa. En ella se describen los or- 



denadores que van a tratar tanto el có- 
digo fuente como el programa objeto, y 
se definen las distintas unidades perifé- 
ricas que contendrán los ficheros con 
los que ha de trabajar el programa, así 
como los periféricos de salida {impreso- 
ras, pantallas, etc.). Estas dos funciones 
se corresponden con las dos secciones 
en que se divide la Environment Divi- 
sión; la Configuration Section, en la que 
se identifican los programas fuente y 
objeto, y la Input-Gutput Section, que 
relaciona todos los dispositivos emplea- 
dos por el programa 
Ef formato de esta división es: 
ENVIRONMENT DIVISION 
CONFIGURATION SECTION 
SOURCE-COM PUTER. ordenador- 
fuente. 

OBJECT-CGMPUTER. ordenador-ob 
jeto. 

SPECIAL-NAMES. nombres-especia 

les. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL, control-de-ficheros. 
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I-Q-CONTRÜL. control-de-entrada- 
salida. 

En la CONFIGURATION SECTION de- 
ben aparecer, obligatoriamente, las dos 
primeras líneas, que indican, respecti- 
vamente, el ordenador en que se va a 
compilar el programa, y aquél en ef que 
se va a ejecutar. La línea SPECIAL-NA- 
MES reseña los nombres simbólicos uti- 
lizados por el programador, definitiva- 
mente dependientes de la marca y mo- 
delo del ordenador. 

La INPUT-OUTPUT SECTIÜM es opcio- 
nal, aunque si aparece deberá ir segui- 
da obligatoriamente por la zona FILE- 
CONTROL, que consta de tantas senten- 
cias SELECT ASSIGN (asignación de un 
nombre de fichero a un dispositivo ex- 
terno) como periféricos se usen. La lí- 
nea l-O-CONTROL especifica procedi- 
mientos y/o técnicas especiales de tra- 
tamiento de información. Puede omitir- 
se en caso de que no sea necesaria. 

* Data División 

Describe los ficheros, las estructuras 
de datos y las variables que van a ser 
procesadas: longitud de los campos en 
variables de tipo carácter (ALPHABE- 
TIC), posición del punto decimal en va- 
riables de tipo numérico (NUIVIERIC), or- 
ganización de los registros, etc. 

La Data División proporciona fas ca- 
racterísticas y organización de los datos 
de una manera que es, en gran medida, 



independiente del equipo que se utilice 
(cuya definición está en la Environment 
División) y casi por completo indepen- 
díente de la forma en la que se van a 
procesar los datos (especificada en la 
Procedure División). 

Esta zona del programa se divide a su 
vez en cuatro secciones: Ja File Section, 
en la que se definen según ciertas re- 
gías todos los ficheros que intervienen 
en el programa, la Working-Storage 
Section, en la que se declaran los ele- 
mentos que necesita el programador 
para su trabajo (buffets, contadores, 
acumuladores, tablas, etc ), la Linkage 
Section, para la especificación de las va- 
riables de enlace con el programa prin- 
cipal (se emplea únicamente en los sub- 
programas), y Ea Report Section, donde 
se describe la composición y el formato 
de los datos de salida. La estructura de 
esta división es: 

DATA DIVISION 
FILE SECTION 
descripción-de-fichero 
descripción-de-registro 
WORKING-STORAGE SECTION 
descripción-de-identificadores 
descripción-de-grupos 

Cualquier de las dos secciones puede 
aparecer o no. 

Dentro de la FILE-SECTION debe ha- 
ber tantas descripciones de ficheros 
como ficheros hayan sido mencionados 
en la ENVIRONMENT DIVISION; en cada 



una de ellas pueden describirse tantos 
registros como se necesite. 

Cada entrada de descripción de un fi- 
chero se identifica con las iniciales FD 
(File Description). En ella debe aparecer 
obligatoriamente la cláusula LABEL RE- 
CORDS (etiquetas que posee el archivo, 
bien STANDARD, bien GMMITED, o ge- 
neradas por el usuario), a la que pueden 
o no seguir algunas de fas siguientes: 

RECORDING MODE, para indicar el 
modo de grabación física del fichero. 

BLOCK CONTAINS xxxx RECORDS, 
que indica el número de registros lógi- 
cos contenidos en uno físico. 

RECORD CONTAINS xxxx CHARAC- 
TERS, donde se define el número de ca- 
racteres que debe poseer ceda registro, 

y 

DATA RECORD(S) IS(ARE) nombre- 
de-registro, que determina el nombre de 
los registros asociados al fichero que se 
está declarando. 

Es dentro de la WORKING-STORAGE 
SECTION donde se describen [os distin- 
tos campos e identificadores utilizados 
por el programador. Para ello se em- 
plean algunas de las siguientes cláusu- 
las: 

PJCTURE: tipo (numérico, alfabético o 
alfanumérico) y longitud de! identifica- 
dor. 

VALUE: inicialización de la variable 
que preceda a esta palabra clave. 

JUSTIFIED: ajusta el contenido de una 




Las aplicaciones de «negocios* se caracterizan por el elevado volumen de datos de 
salida comparado con el de entrada o el de cálcufo. 
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IDENTIFICATION 

DIVISION 





DATA 

DIVISION 






PROCEDURE 




DIVISION 



Estructura genérica de un programa 
confeccionado en lenguaje COBOL 



variable a la derecha o izquierda del 
campo que tenga asignado. 

USAGE; formato de almacenamiento 
de la variable en memoria. Depende de 
la máquina con la que se esté trabajan- 
do, 

BLANK WHEN ZERO: se aplica cuan- 
do se desee que un campo con valor 
cero se escriba como blancos. 

OCCURS: indica el número de veces 
que se repite un ídentificador dentro de 
una tabla 

REDEFINES: permite cambiar el nom- 
bre a una variable o estructura definida 
con anterioridad, 

SYNCHRONIZED: asegura el alinea- 
miento correcto de los datos en un fi- 
chero. 

Las otras dos secciones (LINKAGE y 
REPORT) pueden aparecer o no en la de- 
finición de esta división. 
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* Procedure División 

Esta zona del programa es la que es- 
pecifica las distintas acciones que hay 
que realizar sobre la Data División. En 
lugar de secciones, esta parte se en- 
cuentra dividía en párrafos, cada uno de 
los cuales debe ser identificado por el 
programador medíante una etiqueta o 
nombre. Es dentro de cada uno de estos 
párrafos donde se indican las diferentes 
transformaciones que deben aplicarse a 
los datos del programa. 

En la figura está representada la es- 
tructura final que, a grandes rasgos, 
presenta un programa COBOL, 

Tipos de sentencias 

Una instrucción es una combinación 
sintácticamente válida de palabras y 



DESCRIPCION Da ORDENADOR 



PERIFERICOS UtlLIZADQS 



FICHEROS 



ZONAS DE TRABAJO 



ZONAS DE CONSTANTES 



DESCRIPCION DE SALIDAS 



SECCIONES DEFINIDAS 
POR EL PROGRAMADOR 



símbolos, que comienza por un verbo 
COBOL. Los «verbos» son palabras re- 
servadas del lenguaje (ver tabla), por lo 
que el programador no puede modificar- 
los bajo ningún concepto. Como es ha- 
bitual en todos los lenguajes, estas pa- 
labras no pueden emplearse para dar 
nombre a constantes o variables, o ef 
compilador será incapaz de ejecutar su 
tarea. 

COBOL utiliza fos siguientes tipos de 
instrucciones: 

* instrucciones de entrada-salida 

Dentro de este grupo se encuentran 
todas las sentencias encargadas de la 
manipulación de ficheros: OREN {para 
abrir un fichero), GLOSE (indica que ese 
fichero no va a ser usado de nuevo), 
READ, WRITE y REWRITE (para la lee- 



tura, escritura y actualización cíe regis- 
tros en un fichero abierto}, ACCEPT y 
DISPLAY (para la entrada y salida, res- 
pectivamente, de datos por un periféri- 
co en concreto, como pueda ser el te- 
clado o ia pantalla), 

* Instrucciones de manipulación de 
datos 

Por manipulación de datos deberemos 



entender el trabajo con los identificado- 
res de dichos datos, sin tener en cuenta 
el valor numérico que tienen asignado. 
En este grupo se encuentran las instruc- 
ciones MOVE, que asigna a un identifi- 
cador el contenido de otro, y EXAMINE, 
encargada de inspeccionar el contenido 
de un identífícador y, en su caso, efec- 
tuar en éi alguna transformación (por 
ejemplo, sustituir los espacios en blan- 
co por asteriscos). 



* Instrucciones aritméticas 
En este apartado deberemos encua- 
drar las instrucciones que tratan los 
identificadores como datos numéricos, 
sobre los que pueden ejecutarse cuales- 
quiera operaciones algebraicas. Estas 
instrucciones son ADD (suma), SUBS- 
TRACT (resta), MULTIPLY (multiplica), 
DIVIDE (divide) y COMPUTE, encargada 
de obtener el resultado de la operación 
matemática expresada a continuación. 




La equivalencia entre la 
División del COBOL y la 
estructura de un 
programa en PASCAL 
aquí representada, no es 
ni mucho menos exacta , y 
debe ser considerada 
como una primera 
aproximación al 
significado de cada una 
de ellas en un programa 
COBOL 






Un cálculo matemático $e 
puede expresar a través 
de su equivalente 
algebraico (OPERA) o de 
forma pareada a como lo 
expresamos en lenguaje 
natural (SUMA 4 y 5 
DANDO C). 
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I Formato de las instrucciones de 
¡a PROCEDURE DIVISION, - 
encargada de contener el 
programa propiamente dicho. 



* Instrucciones condicionales y de bi- 
furcación 

En ocasiones es necesario tomar den- 
tro del programa ciertas decisiones, o 
bien elegir un camino u otro según el re- 
sultado de una operación. Para estos ca- 
sos están disponibles la instrucción 
condicional, IF (escoge entre dos opcio- 
nes en función de que se cumpla o no 
una condición propuesta), y las distintas 
instrucciones de salte o bifurcación, que 
son GO TO (salta incondicionalmente al 
párrafo cuya etiqueta se menciona en la 
instrucción), GO TO DEPENDING ON 
(salto condicional a la etiqueta que 
mencione la instrucción, en función del 
valor de cierta variable mencionada), 
STOP (detención temporal o definitiva 
del programa), EXIT (punto de salida de 
un párrafo o proceso) y ALTER (cambia 
la referencia a una etiqueta o nombre 
de párrafo). 

* instrucciones de control 

Una estructura enormemente utiliza- 
da en todo tipo de programas es el bu- 



cle o lazo, consistente en la repetición 
de un determinado grupo de instruccio- 
nes un cierto número de veces, o bien 
hasta que se cumpla una condición. 
Para crear este tipo de estructuras se 
dispone en COBOL de la instrucción 
PERFÜRM. 



Subprogramación 

Una de las grandes ventajas de los 
programas de ordenadores es su porta- 
bilidad, esto es, pueden ser llevados de 
un lugar a otro y ejecutados por cuan- 
tas máquinas sea necesario, siempre 
dentro de una serie de restricciones im- 
puestas por el hardware. Para poder 
aprovechar esta situación es convenien- 
te desarrollar los programas en forma 
de módulos autocontenidos, lo que fa- 
vorece su fácil intercambio y modifica- 
ción. En general, siempre es más senci- 
llo de entender y modificar un progra- 
ma corto que realice una única tarea 



con dos o tres ficheros, que un : :: : 
ma de cientos de líneas encargac: e 

gestión completa de un gran voIl— e - 
de datos. Estos módulos, denorr 
subprogramas, se integrarán másis'ia 
en el programa principal, encargan: 
gestionar Ja entrada en funcionar^ e - :: 
y la detención de cada uno de e :s 
el momento adecuado, entre otras ce- 
sas. 

La instrucción empleada en CÜEX 

para llamar a un subprograme es IA 

(en inglés, llama), seguida de ne — z-e 
asignado al programa (o subprcc'=-s 
llamado. En caso de que sea recesa' c 
la instrucción de llamada puece cc 'te- 
ner Jos identificadores de! preces— a 
principal que pueden ser utilizados 
el programa secundario. Pre. 3"e-:a 
deberán haberse declarado en a _ a- 
ge Section (sección de enlace ca 3 
Data División dei subprograma les ~ ca- 
bres que el mencionado subpro-e r s“ a .3 
a asignar a ¡as variables de pecera 
principal. 

Todo subprograma debe, tras se- eje- 
cutado, devolver el control ai r^:r a^a 



I 



Ciclo de vida de un 
programa 



Se ha mencionado que el hecho de especificar la 
estructura de datos y el programa en sí (el algoritmo a 
seguir) en dos partes diferenciadas del programa ayuda 
a la introducción de futuros cambios y a la corrección de 
errores. 



El ciclo de vida de un programa comprende todas las 
fases que van desde el diseño de la estructura del 
mismo hasta que le es entregado al usuario, incluyendo 
la corrección de los posibles errores que se detecten 
una vez en funcionamiento. 

La subsodicha partición del programa en dos zonas 
diferenciadas es útil prácticamente en todas las fases, 
pero es especialmente en la de mantenimiento. En esta 
ultima se corrigen los errores que el usuario encuentra 



en el funcionamiento del programa que se e ~kz 
No hay que olvidar que un gran proyecto "”-e: :: e= 
un esfuerzo que pude ocupar a muchas ^-3 
durante un Jargo período de tiempo. Guabo: ^rece- 
los errores en la fase de mantenimier:: 
componentes del equipo de programe: r puear -1 ir- 
los mismos, por lo que el hecho de que e o 
programa se «autoexprese» a través de sus ~ 
de datos y algoritmos resultará de gra~ syjfe 
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DíSENO 
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X 



DEPURACION 
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DE «■-*- 

SOFTWARE 
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USUARIO 
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llamante. Para ello se emplean las ins- 
trucciones EXIT PROGRAM o GORACK. 



Recapitulación y ejemplos 

El nombre de una variable COBOL 
está compuesto por hasta treinta carac- 
teres, entre letras, dígitos y guiones (es- 
tos últimos especialmente útiles en 
nombres de variables constituidos por 
más de una palabra). Al menos uno de 
estos caracateres ha de ser una letra, y 
el último no puede ser un guión. Nom- 
bres válidos serían, pues: 

SALDO -TOTAL 

C ANTI DAD- E N - EXI STE NC I A 

8WIXZC 

Lo que normalmente recibe el nom- 
bre de constantes en otros lenguajes se 



llama en COBOL literales, y pueden ser 
de dos tipos: numéricos y no numéricos, 
en cuyo caso van encerrados entre co- 
millas simples. Ejemplos de literales 
pueden ser: 



1 24.71 literal numérico 

"Empleado" literal no numérico 



También existen las constantes figu- 
radas, que son, entre otras, ZERO, ZE- 
ROES, SPACE, SPACES y QUOTE. Si en 
¡a Data División hemos definido la va- 
riable ABC como capaz de contener seis 
caracteres, al hacer: 

MQVE SPACES TO ABC, 

la variable ABC pasa a contener sólo es- 
pacios en blanco (seis). Observemos el 
punto con el que finaliza la sentencia. 
En COBOL, las sentencias van separa- 
das entre sí por un punto y un espacio 
como mínimo. 



Las operaciones aritméticas se pue- 
den realizar dejando el resultado en uno 
de los operandos o especificando la va- 
riable que va a recibir el resultado. Por 
ejemplo, 

ADD 1 TO CONTADOR. 

incrementa la variable contador (resul- 
tado en uno de los operandos, en este 
caso CONTADOR), 

ADD A,BTQ C. 

añade A y B a C, dejando el resultado 
en C (esto es, C-A + B + C), y 

ADD A,B,C, GIVING D 

realiza la misma operación, pero alma- 
cenando el resultado en la variable D. 

De forma análoga se expresan restas 
(SUBSTRACT) multiplicaciones (MUL- 
TIPLY) y divisiones (DIVIDE). La senten- 
cia COMPUTE ofrece una interesante 
manera de abreviar la escritura de los 
cálculos (ver figura). 

Empleando la mencionada sentencia, 
tendremos las siguientes instrucciones, 
completamente equivalente a las ante- 
riores: 

COMPUTE CONTADOR = CONTADORA. 

COMPUTE C=A+B+C 

COMPUTE D=A+B^C. 

Las secciones en que el programador 
divide a la Procedure División son una 
especie de subprogramas que pueden 
ser invocados a través de las sentencias 
PERFORM o GO TO. 

La entrada/salida se realiza a través 
de las sentencias ACCEPT, DÍSPLAY, 
OREN, READ, WRÍTE y GLOSE; de ellas, 
las cuatro últimas están dedicadas al 
manejo de ficheros. Por ejemplo, pode- 
mos especificar: 

DISPLAY "HOLA, COMO ESTAS ', 

y aparecerá la frase HOLA, COMO ES- 
TAS en el dispositivo de salida especifi- 
cado en la Configuraron División. Como 
en todo literal no numérico, no pueden 
aparecer comillas. Para escribir la mis- 
ma frase entrecomillada deberíamos 
emplear la constante figurada QUOTE: 

DISPLAY QUOTE "HOLA, COMO ESTAS" QUOTE. 



Palabras reservadas del Cobol 



ACCEPT 


FÜR 


READ 


ADD 


FROM 


REEL 


AFTER 


GIVING 


REMAINDER 


ALL 


GOTO 


REPLACING 


ALPHABETIC 


GRÉATER 


RE WRITE 


AND 


IF 


ROUNDED 


BEFORE 


INPUT 


RUN 


BY 


JNSPECT 


SEARCH 


CHARACTER 


1NT0 


SENTENCE 


GLOSE 


INVAL1D 


SET 


COMPUTE 


LO 


SIZE 


COUNT 


KEY 


START 


DATE 


LEADING 


STRING 


DAY 


LESS 


SUBTRACT 


DELETE 


LOCK 


TALLYNG 


DELIMITED 


MOVE 


THROUGH 


DEPEND1NG 


MULTIPLY 


THRU 


DISPLAY 


NEGATIVE 


TIME 


DIVIDE 


NEXT 


TIMES 


DOWN 


NOT 


TO 


ELSE 


NUMERIC 


UN IT 


END 


OPEN 


UNSTRING 


END-OF-PAGE 


OR 


UNTIL 


EOP 


OUTPUT 


UP 


EQUAL 


OVERFLOW 


USE 


ERROR 


PAGE 


WARYING 


EXCEPTIGN 


PERFORM 


WHEN 


EXIT 


PO INTER 


WRITE 


EXTEND 


P0SIT1VE 




FIRST 


PROCEDURE 
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FORTH (1) 



B odos los lenguajes 
de programación 
acogen una serie 
de características 
primordiales que 
los hacen más o menos idóneos para de- 
terminadas aplicaciones. Tales caracte- 
rísticas derivan de la propia filosofía del 
lenguaje, y en menor grado de la pre- 
sencia o ausencia de determinadas ins- 
trucciones dentro de su vocabulario. 

El FORTH es un lenguaje que se ca- 
racteriza por permitir un gran aprove- 
chamiento de todas las posibilidades y 
recursos de la máquina. Son muchas las 
facultades del FORTH que lo acercan a 
los lenguajes de bajo nivel; y ello, tra- 
tándose de un lenguaje de alto nivel, es 
ya decir mucho. Semejante propiedad 
hace que gran parte de sus instruccio- 
nes no sean todo lo potentes que cabría 
esperar del repertorio de un lenguaje de 
alto nivel; aunque, bien es cierto, que 
sus virtudes compensan con creces este 
inconveniente. No terminan aquí sus pe- 
culiaridades. La mayor parte de los len- 
guajes de alto nivel se suelen clasificar 
en compilados o interpretados; si bien, 
algunos (el BASIC, por ejemplo) admi- 
ten ambas posibilidades. El FORTH no 
se ajusta a esta clasificación. Su pecu- 



liar estructura no es ni compilada ni in- 
terpretada. Un programa FORTH se 
compone de una serie de rutinas y, a su 
vez, el mismo programa es una rutina 
más con la que es posible construir nue- 
vos programas. Pues bien, estas rutinas, 
una vez creadas son compiladas, y que- 
dan así en la memoria del ordenador, 
aunque el trabajo con el lenguaje se 
realiza en modo interpretado. En el ám- 
bito del FORTH anidan tres o cuatro con- 
ceptos fundamentales que difieren de 
los usuales en otros lenguajes de pro- 
gramación. Estos conceptos no son es- 
pecialmente difíciles, pero son nuevos, 
y familiarizarse con ellos puede llevar 
algún tiempo. Ante todo, hay que borrar 
de la mente ideas preconcebidas; en 
realidad, el FORTH es un lenguaje tan 
fácil como cualquier otro. 



El concepto de pila 

El primer concepto a definir es el de 
pila. Para enunciarlo, lo más cómodo es 
buscar un ejemplo en la vida real. Y no 
es difícil encontrarlo: por ejemplo, un 
apilamiento de platos fregados es una 
pila. 

Observemos la forma de trabajar con 




S EI FORTH es un lenguaje que destaca por su calendad: tanto por la velocidad de 
ejecución de los programas como por la rapidez con la que es posible desarrollar 
software , partiendo de otros programas y rutinas ya existentes. 



Introducción al 
lenguaje FORTH 




El FORTH nació como una herramienta 
de ayuda con la que formular los 
complicados cálculos necesarios en 
los observatorios astronómicos. 



uno de estos apilamíentos. En primer lu- 
gar, una vez fregados, los platos se van 
depositando en la pila... ¿Pero en qué lu- 
gar de la pila? Resulta evidente que en 
la parte baja no se pueden colocar. Por 
tanto sólo es posible colocarlos en la 
cima. 

¿Y de dónde iremos recogiendo los 
platos a medida que los vayamos nece- 
sitando? Pues de la parte baja desde 
luego que no: la pila podría terminar en 
un verdadero estropicio. No cabe duda 
que habrá que irlos tomando, ordenada- 
mente, de la zona superior, de la cima 
de la pila. 

Este es, precisamente, el modo de tra- 
bajar con la pila. La pila es una zona de 
memoria en la que los datos se almace- 
nan y se extraen de la misma forma que 
los platos de nuestro ejemplo. La es- 
tructura de almacenamiento de la pila 
es conocida con e! nombre de lista UFO 
(last input fírst output}; o lo que es lo 
mismo, pero en castellano: el último en 
entrar es el primero en salir. Esta es- 
tructura condiciona la forma de trabajo 
con este lenguaje. 

Realmente, el FORTH da entrada a 
dos pilas: en una de ellas se almacenan 
los datos con los que vamos a trabajar, 
se trata de la pila normal; la segunda es 
la llamada pila de retorno, y se emplea 
para almacenar valores de índices y va- 
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PROGRAMA J 


RELABRA 6 ) 


[PALABRA 4 | PALABRA 5 J 


[ PALABRA 1 J PALABRA 2 


[ PALABRA 3 J 



I Ef FORTH es un lenguaje 

fundamentado en la creación de 
palabras que r posteriormente, pueden 
ser empleadas para crear nuevas 
palabras más evolucionadas. 





8 Secuencia de entrada y salida de 
datos en la pila. 




I Un callejón sin salida es también un 
ejemplo ilustrativo de pila: el último 
coche en entrar ha de ser 
el primero en salir. 



hables de bucles. Desde luego, además 
de estos dos, hay que contar con la ha- 
bitual pila del sistema. 

Palabras 

La palabra es uno de los conceptos 
básicos del FORTH y tal vez el más im- 
portante. Del mismo modo que en ef 
lenguaje corriente bautizamos con una 
palabra a las cosas que todavía no tie- 
nen un nombre, en FORTH podemos 
bautizar a una secuencia de acciones o 
instrucciones por medio de una palabra. 

De esta forma, al emplear una pala- 
bra, lo que haremos es referirnos al 
nombre con el que hemos bautizado a 



una serie de acciones. De ello se dedu- 
ce que una pelaba es un ente abstracto 
que asocia una serie de acciones o «de- 
finición» a un nombre. Una palabra 
FORTH consiste en un conjunto de ca- 
racteres delimitados por espacios. Dada 
la importancia que tienen en el FORTH 
los espacios, en su función de separa- 
dores, una palabra no puede contener 
ningún espacio en su interior. En prin- 
cipio, las palabras pueden ser de cual- 
quier longitud, pero sólo los primeros 
caracteres serán significativos (por lo 
general, los 31 primeros). 

De lo explicado hasta ahora, se pue- 



de deducir fácilmente que un programa 
FORTH es extraordinariamente modu- 
lar. En efecto, la confección de un pro- 
grama consiste en ir construyendo nue- 
vas estructuras basadas en estructuras 
antiguas ya existentes. A esto hay que 
unir el hecho de que estructuras im- 
prescindibles en otros lenguajes, como 
el GOTO, carecen aquí de sentido, con 
las consiguientes ventajas. 

El diccionario 

Cuando se creó el lenguaje FORTH, se 
pretendía garantizar el rápido acceso a 





Evolución de ia pifa ai ejecutar las operaciones 
de producto (A) y división (B). 
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SWAP es una palabra FORTH integrada en el grupo de órdenes 
para la manipulación de la pila . Concretamente, SWAP intercambia 
los dos números que ocupan las posiciones superiores de la pila. 




En la mayoría de las versiones de FORTH, cada elemento de la pila consta 
de un total de W bits. Ello significa que la pifa utiliza realmente 
dos posiciones de memoria para el almacenamiento de cada dato. 



un catálogo de funciones y poder defi- 
nir otras nuevas funciones a partir de 
las ya existentes. 

Recordemos que la palabra constitu- 
ye el elemento esencial del FORTH e 
implica una acción determinada. 

El conjunto de palabras FORTH con- 
forma el diccionario. Un diccionario que 
puede enriquecerse mediante la crea- 
ción de nuevas palabras que sumara las 
ya existentes. 



Números 

El ordenador, al analizar lo que haya 
introducido el usuario, intentará, en pri- 
mer lugar, asimilarlo como una palabra; 
si no lo consigue, entenderá que se tra- 
ta de un número. 

Los números pueden expresarse en 
cualquier base, de la 2 a la 36. En todo 
caso, al proceder a su conexión, el equi- 
po trabajará en decimal, el sistema de 
numeración más común; no obstante, 
en cualquier momento puede ordenarse 
un cambio de base. 

Los números pueden ser de diversos 
tipos; por ejemplo, enteros de simple o 
doble precisión. Los de precisión simple 
sólo pueden llegar al valor 32767 para 
positivos y a 32768 para negativos. 



Notación polaca inversa 

Esta notación representa otra de las 
particularidades del FORTH. Consiste en 
suministrar el operador aritmético tras 
los datos sobre los cuales habrá de ope- 
rar. Por ejemplo, para sumar dos núme- 
ros, la operación sería la siguiente: 

22 + 

La explicación es muy sencilla si pen- 
samos en la «pila?». Los datos son toma- 
dos y almacenados en la pila y, a conti- 
nuación cuando el procesador observa 
la palabra depositada en el punto su- 
perior de la pila, realiza la acción de to- 
mar bs dos primeros números que en- 
cuentre en la pila (retirándolos de la 
misma), los suma y coloca el resultado 
en la cima de la pila. 



Aritmética 

Como ya se ha indicado, los operan- 
dos han de estar depositados en la pila 
antes de que se realice la operación. Por 
ejemplo: 

5 27 + , <CR> 

5: coloca cinco en la pila. 

27: pone el valor veintisiete en la pila. 
+: suma los dos números de la parte su- 
perior de la pila y los elimina de la mis- 
ma, depositando el resultado de la ope- 
ración en la cima de la pila. 

es la palabra FORTH que se emplea 
para escribir en la pantalla el valor que 
se encuentra en la cima de la pila. 



Aspecto de un programa FORTH 

Un punto muy importante en todo pro- 
grama FORTH es la correcta colocación 
de los espacios en blanco. Los espacios 
en blanco son (os separadores más im- 
portantes, De la adecuada colocación de 
estos espacios depende la interpreta- 
ción de las palabras introducidas. De 
cualquier forma, el editor se encargará 
normalmente de advertirnos del uso de 
palabras no existentes en su dicciona- 
rio. 

Operadores aritméticos 

Los operadores aritméticos del FORTH 
también pertenecen a la categoría de las 
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OPERADORES ARITMETICOS^ 



FORTH | 



1 1* 




1 2+ 




| 1- 




| 2- 












/ MOD 




*/MOD 




NEGATE 


















*/ 




MAX 




MIN 




ABS 




El FORTH es un lenguaje de 
programación con un amplio 
repertorio de palabras cuya finalidad 
es la de actuar a modo de 
operadores aritméticos . 



palabras. Se caracterizan por su pecu- 
liar forma de trabajo con la pila; de ahí 
que una parte importante de su explica- 
ción haya de versar sobre la manipula- 
ción de la pila. Veamos cuáles son los 
operadores aritméticos más significati- 
vos del FORTH; 

+ Obtiene la suma de los elementos 



que ío siguen en Ja pila, y deposita el re- 
sultado en la cima de la misma. 



2 2 + . <CR> 
2 2 + . 4 OK 



Estas operaciones se pueden encade- 
nar, y para hacerlo hay que tener en 
cuenta el modo de trabajo de la pila. 
Veamos, por ejemplo, la forma de reali- 
zar dos sumas asociadas de distinta for- 
ma: 



23 2 + • <CR> 



23 2 +.25 OK 



''l 






23 2+ 

ei n 



2 4 5*/- <CR> 



*/ 



2 4 5 */ . I OK 



*/ 







5 






4 : 




4 




m 


2 




2 '¡ 


CD 



23 



<CR> 



23 I- .22 OK 



23 



h| 

1 m 



2 9 MAX <CR> 



_9_ 

2 



MAX 

BB 



Evolución de una pila al ejecutar determinadas operaciones matemáticas. 



3 6/MOD-tR) 



/ MOD 



3 6/MOD.0 



3 6 / MOD. 0.3 OK 



/MOD 





6 




0 




■ 


3 




B 


m 





MAX 






2 9 MIN <CR> 




MIN 
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2 3 3 + + . <CR> 
234 + + . 8 OK 



Operación que equivale a la siguiente 

23+3+. <CR> 

23+3+. SOK 




^ 1 VARI 1 


qIVAR2I 


0 IVAR3l 








o VAR4 


J VAR5 


O VAR6 








O VAR7 * 


o VAR8 : 


o VAR9| 
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NOTA; En FQRTH, el punto (.) sirve para 
mostrar por pantalla el contenido de la 
cima de la pila. El dato visualizado de- 
saparece de la cima de la pila. 

— Resta el segundo número introdu- 
cido en la pila del introducido en primer 
lugar. 



* Multiplica los dos números situa- 
dos en las posiciones superiores de. la 
pila. Deposita en la cima de ía pila el re- 
sultado de la multiplicación. 



1 6000 2 * . <GR> 
160002* . OK 



I Cabe imagtnar a ía memoria como 
un conjunto de buzones, cada uno 
de ellos constituido por dos celdas 
de memoria (bytesj en donde es 
posible almacenar datos. Mediante la 
definición de constantes y variables 
asociamos un identificador a cada 
uno de los buzones , lo cual permitirá 
un acceso más cómodo a los 
mismos. 



/ Obtiene la división de los dos nú- 
meros de la cima de la pila; consideran- 
do como divisor al más cercano a la 
cima (el último que se introdujo) y al 



5 3-. <CR> 
53 -.2 0K 



Al ejecutar la orden ROLL el 
ordenador toma el número «n» 
situado en la cima de la pila (13 en 
nuestro caso/; acto seguido , duplica 
el número situado «n» posiciones a 
partir de la cima de la pifa y deposita 
la copia en la parte superior de la 
misma. 
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dejando en su lugar el resultado de la 
operación. 

Ejemplo: 

23 2+ . <CR> 

23 2i . 25 GK 

Los dos caracteres que componen es- 
tas palabras FORTH han de escribirse 
seguidos, sin dejar espacio en blanco 
entre ellos. De no hacerlo así, el resul- 
tado de la operación sería el mismo, si 
bien no coincidiría el proceso ejecutado 
y ello puede influir en el desarrollo del 
programa además de hacerlo más lento. 



La palabra DUP duplica el dato focalizado en ¡a cima de la pila, 
siempre y cuando su valor no sea cero. 




En nuestros días existen ya versiones del lenguaje FORTH adaptadas 
a múltiples microordenadores , incluso a equipos domésticos 
como es el caso del ZX-Spectrum, 



1- Esta nueva palabra permite restar 
una unidad al número situado en la 
cima de la pila, colocando en su lugar 
el resultado de la operación. 

Ejemplo: 

23 1- <CR> 

23 1- 22 OK 

2- Su funcionamiento es semejante 
al de la palabra anterior, pero en lugar 
de restar una sola unidad resta dos. 
Ejemplo: 

342-.<CR> 

34 2- . 32 OK 

/MOD Divide el primer número in- 
troducido en la pila por el segundo, de- 
positando en ella dos números resultan- 
tes: el de la cima, coincidente con el mó- 
dulo de la división, y el siguiente que co- 
rresponde al resto de la división. 
Ejemplo: 

3 6 /MOD . . <CR> 

3 6 /MOD . 0 . 3 OK 



otro como dividendo. El resultado de la 
operación sólo incluye el módulo del co- 
ciente. 



3 2/. <CR> 
3 2 / . 1 OK 



Más operadores aritméticos 

El lenguaje FORTH dispone de dos pa- 
labras destinadas a realizar incremen- 
tos; éstas son las dos siguientes: 

1+ Suma una unidad al elemento si- 
tuado en la cima de la pila, depositando 
en la cima el resultado de la operación. 
Ejemplo: 

2 1 + . <CR> 

2 1+ . 3 OK 

2+ Incrementa en dos unidades el 
elemento situado en la cima de la pila. 



Operadores evolucionados 

El lenguaje FORTH posee, ademas, 
una serie de operadores complejos que 
ejecutan más de una operación, em- 
pleando para ello dos o incluso más 
operandos. 

*/ Esta palabra multiplica el segun- 
do número situado en la pila por el ter- 
cero, dividiendo el resultado por el si- 
tuado en el primer lugar de la pila, este 
es, en la cima. 

Ejemplo: 
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I La presencia del FORTH en el ámbito de los microordenadores es notable. Hace 
algún tiempo, incluso podía adquirirse un económico equipo doméstico 
— denominado Júpiter Ace— cuyo lenguaje residente era precisamente 
el FORTH, en lugar del tradicional BASIC. 



2 4 5 V . <CR> 

245V.10K 

VMOD Ejecuta las dos operaciones 
descritas en el caso anterior, con la di- 
ferencia de que, además, proporciona el 
resto de la división. 

Ejemplo: 

2 4 5 VMOD . . <CR> 

2 4 B VMOD .1.3 OK 

Las siguientes palabras FORTH reali- 
zan algunas manipulaciones de datos 
íntimamente relacionadas con operacio- 
nes aritméticas, 

ABS Dicha palabra calcula el valor 
absoluto del número que se encuentra 
en la parte superior de la pila, y coloca 
el resultado en esa misma posición. 
Ejemplo: 

-2 ABS . <CR> 

-2 ABS , 2 OK 

MAX Toma los dos números empla- 
zados en las posiciones superiores de la 
pila, y deposita el mayor de ambos en 
la cima. 

Ejemplo: 

2 9 MAX . <CR> 

2 9 MAX . 9 OK 

53 8 MAX MAX , <CR> 

5 3 8 MAX MAX . 8 OK 

MIN Muy semejante al anterior; 
toma los dos elementos superiores de 
la pila y coloca el menor de ellos en la 
cima. 

NEGATE Cambia el signo del núme- 
ro situado en la cima de la pila. 
Ejemplo: 

3 NEGATE . <CR> 

3 NEGATE . -3 OK 

Cabe observar que en algunos dialec- 
tos FORTH no existe la función NEGA- 
TE; si bien, existen otras funciones que 
realizan el mismo cometido, entre ellas 
se encuentra MIN US. 

En general todas estas funciones son 
habituales en cualquier dialecto FORTH; 
hay que constatar que éste es un len- 
guaje muy uniforme. Por lo demás, exis- 



te la ventaja de que si nuestra versión 
de este lenguaje no posee una determi- 
nada palabra, es muy sencillo crearla, 
con lo cual el problema desaparece. 



El trabajo con la pila 



Una vez estudiadas las palabras 
FORTH que permiten la realización de 
operaciones aritméticas, pasamos a 



describir una serie de palabras FORTH 
especializadas en realizar diferentes 
manipulaciones de la pila. 

Este nuevo tipo de instrucciones es 
fundamental en el lenguaje FORTH; no 
hay que perder de vista, como hemos in- 
dicado antaeriormente, que la pila cons- 
tituye la base de trabajo para todos los 
cálculos, ya que de ella se extraen los 
operandos. Con una de estas nuevas pa- 
labras hemos trabajado ya anteriormen- 
te; se trata de la palabra que permite 
visualizar en la pantalla el número si- 
tuado en la cima de la pila. 
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la cima de la pila y lo utiliza como refe- 
rencia para coger el número situado n 
posiciones a partir de la cima de la pila 
y duplicarlo, depositando una copia en 
la posición superior de la pila. 

Ejemplo; 

1 2 3 3 ROLL . <CR> 

1 2 33 R0LL10K 

DUP Duplica la cima de la pila en el 
caso de que ésta no sea cero. 

Ejemplo: 

3 DUP . , <CR> 

3 DUP .3 .3 OK 

■ La palabra EMIT toma el elemento situado en la cima de la pila y visualiza en la R Copia la cima de la pila de retorno 

pantalla el carácter cuyo código ASCII corresponde con dicho número. en la pila de operación. 




DROP Elimina el número que se en- 
cuentra encima de la pila, con lo cual 
éste ya no se tiene en cuenta. 

Ejemplo: 

2 3 5 DROP . . <CR> 

2 3 5 DROP .3.2 OK 

SWAP Intercambia los dos números 
situados en las posiciones superiores de 
la pila. 

Ejemplo: 

3 5 SWAP . . <CR> 

3 5 SWAP. 3. 5 OK 

OVER Obtiene una copia del ele- 
mento situado en la segunda posición a 
partir de la cima de la pila, y coloca este 
duplicado en ía cima de la pila. Como re- 
sultado, la pila mostrará en la cima un 
número igual al tercer elemento de la 
misma. 

Ejemplo: 



2 3 OVER . . . <CR> 
2 3 OVER ,2 .3 .2 OK 



ROT Ejecuta una rotación de los tres 
elementos más próximos a la cima de la 
pila: coloca al tercer elemento en la 
cima y desplaza a los otros dos una po- 
sición hacia abalo. 

-üiSSSiífi Consternes y variables 

1 2 3 ROI , . , <Cñ> 

1 2 3 ROT .1 3 2 OK 




CLS es el comando FORTH especializado en el borrado de la pantalla. 
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El lenguaje FORTH también permite 
ROLL Toma el número n situado en definir constantes. Este concepto puede 




La orden AT tiene encomendada ¡a tarea de precisar el punto de ¡a pantalla en el 
que se realizaré la próxima visualización de datos. 



parecer un tanto extraño, especialmen- 
te para las personas acostumbradas a 
trabajar exclusivamente en BASIC, ya 
que tendrán la tendencia a asociar es- 
tas constantes con las variables. 

En esencia, este artificio permite otor- 
gar un nombre a un valor específico, va- 
lor que no puede ser cambiado a lo lar- 
go del proceso. Tal posibilidad hace po- 
sible asignar un nombre a un número, 
lo que facilitará las referencias al mis- 
mo dentro del programa. 

Para realizar una definición de esta 
índole, hay que empezar trasladando el 
número que se pretende definir a la 
cima de la pila; acto seguido hay que in- 
dicar al ordenador que se desea definir 
una constante utilizando para ello la pa- 
labra CONSTANT seguida por el nom- 
bre que se desea otorgar a la constante. 
Veamos un ejemplo ilustrativo, tanto de 
definición de constantes como de su uso 
práctico. 



23 CONSTANT EDAD <CR> 
56 CONSTANT BAR <CR> 

23 EDAD * , <CR> 

23 EDAD + . 46 OK 
56 BAR _ . <CR> 

56 BAR _ - 0 OK 



A3 igual que ocurre con cualquier otro 
lenguaje informático, también en el 
FORTB es posible definir variables. 
Como ya conocerá todo aquel que se en- 
cuentre familiarizado con los temas de 
programación, una variable correspon- 
de sencillamente a una posición de me- 
moria cuyo valor se puede alterar a vo- 
luntad, El mecanismo para crear una va- 
riable EORTH pasa por utilizar la pala- 
bra VARIABLE. Para proceder a su defi- 
nición, hay que empezar situando el va- 
lor inicial de la variable en la pila. A 
continuación, hay que indicar al ordena- 
dor que deseamos crear una variable, 
mediante el empleo de la palabra 
FORTH VARIABLE y, por último, hay que 
especificar el nombre que deseamos 
emplear como distintivo de dicha varia- 
ble. Veamos algún ejemplo de defini- 
ción de variables: 



23 VARIABLE EDAD <CR> 
23 VARIABLE EDAD OK 

45 VARIABLE BASE<CR> 
45 VARIABLE BASE OK 



El siguiente paso dentro del proceso 
de trabajo con una variable, se concreta 
en la forma de trasladar a la pila el va- 
lor de la misma. Para ello, es necesario 
utilizar la palabra FORTH «(§)», seguida 
por el nombre ídentificador de la varia- 
ble. Por ejemplo: 

EDAD @ . <CR> 

EDAD @ . 23 



Una vez que el valor de Ja variable se 



encuentra depositado en la pila, es po- 
sible ya efectuar operaciones con el 
mismo. 

La actuación de la palabra @ se resu- 
me en lo siguiente: busca en la pila una 
dirección de memoria, y recoge el con- 
tenido de dicha posición de memoria y 
de la siguiente, depositándolo en la pila. 
Cabe deducir, por lo tanto, que hace el 
uso de una palabra como ídentificador 
de una variable, equivale a asociar a di- 
cha palabra un número representativo 
de una dirección de memoria. Veamos 
un ejemplo: 

EDAD . <CR> 

EDAD , 15452 OK 

Como se observa, tras indicar el nom- 
bre de una variable, el ordenador mues- 
tra un número que se encuentra en la 
pifa; número que coincide realmente 
con una dirección de memoria. Veamos 
qué sucede si colocamos directamente 
en la pila la referida dirección de me- 
moria y empleamos la palabra @. 
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15452 @ , <CR> 

15452 @, 23 OK 

En efecto, la pantalla muestra el va- 
lor almacenado en dicha posición. Ello 
significa que puede utilizarse la palabra 
@ para examinar el contenido de dos 
posiciones de memoria consecutivas; 
ias que desee el programador. 

Para cambiar el valor de una variable, 
hay que recurrir a la palabra «K pala- 
bra que, a su vez, también es posible uti- 
lizarla para alterar el contenido de una 
dirección de memoria. Por ejemplo: 

29 EDAD! EDAD @.<CR> 

29 EDAD! EDAD @. 29 OK 

29 15452 @ EDAD @ . <CR> 

29 15452 ® EDAD®. 29 OK 

Otra posibilidad es la de modificar el 
valor de una constante, redefiniéndola 
mediante el empleo de la palabra aso- 
ciada a la misma, aunque con !a des- 
ventaja de que dicha palabra no podrá 
ser utilizada dentro de la definición de 
otra nueva palabra. Por ejemplo: 

23 CQNSTANT BALA <CR> 

23 CONSTAN! BALA OK 

34 CQNSTANT BALA REDEFINE SALA 

BALA . <CR> 

34 CQNSTANT BALA REDEFINE BALA 

BALA . 34 QK 

Imprimiendo en pantalla 

El lenguaje FORTH ofrece varios mé- 
todos para visualizar en pantalla la in- 
formación puesta en juego. La forma 
más frecuente y sencilla consiste sen- 
cillamente, en el uso de la palabra 
FORTH «,». Esta palabra {.) presenta en 
pantalla el número que se encuentre, 
en ese preciso instante, en la cima de 
la pila. Por supuesto, si la pila está va- 
cía la máquina responderá con un men- 
saje de error. 

Para imprimir mensajes en pantalla 
podemos recurrir a la palabra FORTH 
Esta hará que se visualice en la panta- 
lla el mensaje que se escriba a conti- 
nuación, hasta que el ordenador en- 
cuentre otras comillas. 

En determinadas versiones de FORTH, 
la palabra que nos ocupa (.") sólo se 



puede utilizar dentro de la definición de 
otra palabra FORTH. Suponiendo que la 
versión con la que se trabaja admite su 
ejecución en modo Inmediato, la actua- 
ción de dicha palabra es la que ilustran 
los siguientes ejemplos: 

HOLA' <CR> 

HOLA” HOLA OK 



ESTO ES UN MENSAJE" <CR> 

." ESTO ES UN MENSAJE" ESTO ES UN MENSAJE OK 

No sólo es posible visualizar en pan- 
talla un mensaje entrecomillado, sino 
que también puede escribirse en la mis- 
ma un carácter dado por su código AS- 
CII, Para ello, el lenguaje FORTH cuen- 
ta con la palabra clave EMIT, Al ejecu- 



Tabla de órdenes FORTH 


PALABRA 


DESCRIPCION 


TIPO 


1 + 


Suma uno al elemento situado en la cima de la pila. 


Instrucción aritmética. 


2+ 


Suma dos al elemento situado en la cima de la pila. 


Instrucción aritmética. 


1- 


Resta uno al elemento situado en la cima de la pila. 


Instrucción aritmética 


2- 


Resta dos al elemento situado en la cima de la pila. 


Instrucción aritmética 


/MOD 


Divide dos números y da el cociente y el resto. 


Instrucción aritmética. 


V 


Divide y multiplica. 


Instrucción aritmética. 


VMOD 


Divide y multiplica dando además el resto. 


Instrucción aritmética. 


ABS 


Entrega el valor absoluto del número situado en la cima 
de la pila. 


Instrucción aritmética. 


MAX 


Deposita en la cima de la pila el mayor de los dos 
números situados más cerca de la cima. 


Instrucción aritmética. 


MIN 


Deposita en la cima de !a pila el menor de los dos 
números situados más cerca de la cima. 


Instrucción aritmética. 


NEGATE 


Cambia el signo del número situado en la cima de la pila 


Instrucción aritmética. 


DROP 


Elimina el número situado en la cima de la pila. 


Manipulación de la pila. 


SWAP 


Intercambia los dos elementos situados más cerca de la 
cima de la pila. 


Manipulación de la pila. 


OVER 


Duplica el segundo elemento desde la cima de la pila y 
coloca este duplicado en la cima. 


Manipulación de la pifa. 


ROT 


Ejecuta una rotación de los tres elementos situados más 
cerca de la cima. 


Manipulación de la pila. 


ROLL 


Toma un número N de la cima de la pila y busca el 
elemento situado en la posición enésima de la misma. 


Manipulación de la pila. 


DUP 


Duplica la cima de la pila. 


Manipulación de la .pila. 


CONSTANT 


Se emplea para definir constantes. 


Palabra de definición. 
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3 . CLS 5 . <CR> 

3.3 

■ 

4.4QK 



Tabla de órdenes FORTH 


PALABRA 


DESCRIPCION 


TIPO 


VARIABLE 


Define una variable. 


Palabra de definición. 


0 


Busca el contenido de un elemento en memoria. 


Palabra de definición. 


! 


Sitúa un elemento en memoria. 


Palabra de definición. 


REDEFINE 


Cambia el valor de una constante 


Palabra de definición. 




Imprime en la pantalla el valor del elemento situado en la 
cima de la pila. 


Trabajo con la pantalla. 


/' 


Imprime en pantalla un mensaje. 


Trabajo con la pantalla. 


EMIT 


Presenta en pantalla un carácter dado por su correspon- 
diente carácter ASCII. 


Trabajo con la pantalla. 


CLS 


Borra la pantalla. 


Trabajo con la pantalla. 


AT 


Sitúa el cursor en un punto dado de la pantalla. 


Trabajo con la pantalla. 


HOME 


Coloca el cursor en la esquina superior izquierda de la pan- 
talla. 


Trabajo con la pantalla. 


SPACE 


Escribe en la pantalla un espacio en blanco. 


Trabajo con la pantalla. 


SPACES 


Escribe en la pantalla los espacios en blanco que indique 
el número situado en la cima de la pila. 


Trabajo con la pantalla. 


AND 


Realiza la operación AND. 


Operadores lógicos. 


OR 


Realiza la operación OR 


Operadores lógicos. 


XOR 


Realiza la operación OR-exclusiva. 


Operadores lógicos. 



tarla, el ordenador escribirá en la pan- 
talla el carácter cuyo código ASCII se 
encuentra en la cima de la pila. Por 
ejemplo: 

55 EMIT <CR> 

55 EMIT A OK 

¿8EMIT<CR> 

48 EMIT 0 OK 

EMIT permitirá, pues, visualizar en 
pantalla los caracteres que conforman 
e! repertorio del ordenador en uso. Dado 
que cada equipo tiene un juego de ca- 
racteres distinto, en mayor o menor gra- 



do, al de los demás, no es posible dar 
una tabla de códigos generalizadle. No 
obstante, en cualquier caso, las cifras 
decimales tendrán el código comprendi- 
do entre los valores 48 y 57, y las le- 
tras desde el 65 en adelante (general- 
mente para las mayúsculas). 

Hasta ahora se ha descrito cómo ob- 
tener una visualizaclón en pantalla, 
aunque sin realizar ningún tratamiento 
específico de esta. El FQRTH brinda al- 
gunas palabras especializadas en la 
operación con la pantalla; veamos a 
continuación las más importantes: 

CLS Permite borrar la pantalla, elimi- 
nando de ella todo lo que anteriormen- 
te se encontraba escrito en la misma. 



AT Sitúa el cursor de impresión en el 
punto especificado por los dos números 
más próximos a la cima de la pila. El 
más cercano a la cima, indica la colum- 
na, y el siguiente la fila en la que ha de 
realizarse la impresión. Por ejemplo: 



41 8 AT . <CR> 

413AT 

. 4 OK 

I 



Operadores lógicos 

Tal y como establece la teoría de cál- 
culo en el sistema binario, las operacio- 
nes lógicas se realizan bit a bit. El 
FQRTH cuenta, habítualmente, con tres 
operadores lógicos fundamentales: 
AND, OR y XOR. 

AND: Corresponde a la operación de 
producto lógico (AND). 

OR: Corresponde a la operación de 
suma lógica (OR). 

XOR: Corresponde a la operación de 
suma lógica exclusiva (OR-exclusiva). 

Veamos algún ejemplo al respecto: 

21 km. <CR> 

2 7 AND .2 OK 

2 7 OR . <CR> 

2 7 OR .7 OK 
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2 7 XÜR . <CR> 

2 7XOR .5 OK 

HOME Traslada eí cursor de impresión 
a la esquina superior izquierda de la 
pantalla. 

SPACE Imprime en pantalla un espacio 
en blanco. 



S PACES Visualiza una zona de espacios 
en blanco coincídente con el número si- 
tuado en la cima de la pila: 



9 SPACES <CR> 

9 S PACES OK 



■ Por medio de la palabra SPACES e$ posible ordenar a la máquina que trace una 
determinada zona de espacios en blanco sobre la pantalla. 



t \ 




f > 






i i l i l i i ¡OK 


^ J 
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m Historia del FORTH 

Aunque el lenguaje FORTH ya existía anteriormente en 
forma de rutinas sueltas, este no pasó a convertirse en 
un auténtico lenguaje de programación normalizado 
hasta el año 1 969, Fue Charles H. Mccre, del National 
Radiostronomy Observatory, localizado en 
Charlottesville (Virginia,. U.$A) r quien lo desarrolló y 
propuso como herramienta de trabajo destinada a 
realizar programas para controlar los grandes 
radiotelescopios empleados en astronomía. 



En aquellos tiempos, el dominio correspondía a los 
grandes ordenadores. Y sobre estos ordenadores nació 
el FORTH. 

Más tarde, con la aparición de los microordenadores, el 
FORTH ha recibido un notable impulso al adaptarse 
fácilmente a ellos. De hecho, existen ordenadores 
domésticos que emplean el FORTH como lenguaje 
residente; tal es el caso del JUPITER ACE. 

Este lenguaje está orientado hacia el desarrollo rápido 
de programas. Sus primeras aplicaciones se concretaron 
en el campo de Ja astrofísica. Campo en ef que la 



aportación de este lenguaje ha sido muy grande, 
llegando a ser adoptado como lenguaje oficial por Ja 
Unión Astronómica Internacional. 

En la actualidad, otro terreno que parece abonado para 
el FORTH es el control de procesos industriales, y 
dentro de él, el mundo de la robótica. Sus facultades en 
este ámbito derivan de la facilidad para crear 
rápidamente un programa a partir de una serie de 
rutinas independientes. 

La filosofía del FORTH se distancia de la propia de otros 
lenguajes de uso más común; razón ésta por la que ha 
sido considerado siempre como un lenguaje difícil. Lo 
cierto es que se trata de un lenguaje ciertamente 
peculiar; sin embargo, no resulta mucho más difícil de 
aprender que cualquier otro si se parte de cero. En todo 
caso, sus características de medularidad, estructuración 
e interactividad, hacen del FORTH un lenguaje de 
indudable interés y atractivo. 

Pasado algún tiempo desde su nacimiento, y en un 
intento de unificar criterios con respecto a este 
lenguaje, apareció el FJ,G. Forth (Forth Interest Group). 
A esta siguieron otras versiones, más recientes, cuyo 
número da idea del creciente interés que existe por este 
lenguaje. En la actualidad existe una firma americana, 
FORTH INC, dedicada a la comercialización de todo lo 
relativo a este interesante lenguaje. Cabe afirmar que 
hoy en día pueden encontrarse versiones de FORTH 
para prácticamente todos los microordenadores dél 
mercado. 




■ La peculiar estructura del FORTH no es interpretada 
ni compilada... \ sino todo lo contrario! 
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FORTH (2) 



Palabras y estructuras 
de control 



orno ya se explicó 
en el primer capí- 
tulo de esta serie, 
el FORTH es un 
lenguaje que no 
trabaja ni en forma compilada ni inter- 
pretada. Realmente, opera de acuerdo a 
dos modalidades cuya intervención de- 
pende de la tarea en curso; éstos son 
ejecución inmediata y compilación. 

Hasta el momento, todos los ejemplos 
vistos correspondían a la modalidad de 
trabajo en ejecución inmediata. Veamos 
ahora como también es posible operar 
en modo compilación. 

En modo de ejecución inmediata, cada 
palabra introducida en la máquina es 
buscada en el diccionario y ejecutada in- 
mediatamente. El modo compilación se 
emplea para proceder a la definición de 
nuevas palabras FORTH. En efecto, aho- 
ra la mayor parte de las palabras que se 
introducen no son ejecutadas; sino que, 
a través de la definición de la nueva pa- 
labra, se introduce en el diccionario una 
referencia a las palabras elementales 
que la componen. Tras la compilación, 
la nueva palabra pasa a formar parte del 
diccionario y puede ser invocada en 
cualquier momento; ya sea de forma in- 
mediata, o bien por efecto de una refe- 
rencia a la misma en otra definición 
(esto es, en modo de compilación). 



Como definir nuevas palabras 

La definición de palabras es el méto- 
do que permite realizar la programación, 
propiamente dicha, en lenguaje FORTH. 
Gracias a la estructura del diccionario 
que hace posible emplear palabras pre- 
viamente definidas para construir las 
nuevas palabras, el diccionario se ve 
ampliado, tanto en extensión como en 
potencia, a medida que se va trabajan- 
do con este lenguaje. 

Para definir una nueva palabra es ne- 
cesario proporcionar al ordenador una 
definición exacta de su significado. Para 
que éste sepa que el programador $e 
dispone a darle la definición de una pa- 
labra, es preciso advertirlo mediante 
una orden representada por la palabra 
*;». 




El diccionario FORTH está compuesto 
por el conjunto de palabras utiliza bles 
en fas tareas de programación y sus 
correspondientes definiciones 



Una vez que el ordenador sabe que se 
encuentra en disposición de definir una 
palabra, el siguiente paso será comuni- 
carle de qué palabra se trata; es decir; 
cuál es el nombre de la nueva palabra. 
Dicho nombre se escribirá a continua- 
ción. 

Es muy importante saber que el refe- 
rido nombre puede contener cualquier 
símbolo que forme parte del repertorio 
de caracteres del ordenador, exceptuan- 
do a los símbolos gráficos y espacios en 
blanco. La longitud del nombre varía de 
una a otra versión del lenguaje FORTH, 
si bien, por lo general, suele situarse en 
torno a los 30 caracteres. 

Una vez aportado el nombre, ha de 
procederse ya a la definición de la nue- 
va palabra propiamente dicha; para lo 
cual el programador puede basarse tan- 
to en las palabras que aporta el traduc- 
tor FORTH, como en las que él hubiera 
definido previamente. El final de la de- 
finición de la nueva palabra ha de indi- 
carse al ordenador mediante la palabra 
delimitadora 

Veamos un ejemplo de'definición de 
palabras FORTH. 




En el lenguaje FORTH las palabras se van definiendo de una forma 
jerárquica: la definición de una palabra puede edificarse en base 
a definiciones de palabras ya existentes. 
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DEFINICIONES 
DE PALABRAS 



DEFINICION DE 
UNA PALABRA 




I EI modo «compilación» se emplea en ei FORTH para proceder a la definición de 
nuevas palabras. Por efecto de la definición de una palabra , se introduce en el 
diccionario FORTH una referencia a las palabras elementales que la componen. 



En primer lugar, se trata de definir 
una palabra que permita sumar dos uni- 
dades al número situado en la cima de 
la pila: 

: PALAB R A<CR> 

2+<CR> 

;<CR> 

Tras accionar por tercera vez la tecla 
RETURN (CR, o retorno de carro), el or- 
denador responderá con el siguiente 
mensaje por pantalla: 



:PALABRA2í;ÜK 



La respuesta será: 

3 PALABRA.5 QK 

Para trabajar con una palabra en 
modo compilación es necesario definir 
una nueva palabra que la contenga. En 
nuestro caso añadiremos otra palabra al 
diccionario FORTH, Esta nueva palabra 
realizará la misma función que la ante- 
rior, aunque incluiremos en su defini- 
ción la orden de salida por pantalla del 
resultado. El nombre otorgado a la nue- 
va palabra a definir será, por ejemplo, el 
de 8A. Como se observa, el nombre co- 
mienza con un número. Este es un he- 
cho un tanto extraño para las personas 
acostumbradas a otros lenguajes de 
programación; si bien, en FORTH ello 
resulta de lo más habitual de hecho. El 
nombre de una palabra FORTH puede 
constar, si así se desea, únicamente de 
números o incluso de símbolos de pun- 
tuación. 

:8A<CR> 



PALABRA<CR> 

2+.<CR> 

;<CR> 

Tras introducir la nueva palabra defi- 
nida, la pantalla mostrará el siguiente 
mensaje: 



:8A PALABRA 2 +,;0K 







1 






CASA 




PALABRAS 
DEFINIDAS 
POR EL 
USUARIO 




RALABRAS 

DEL 

DICCIONARIO 
| YA EXISTENTES 







ULTIMA 

DEFINICION 



DEFINICION 

PRIMITIVA 



I AI modificar la definición de una 

palabra o proceder a la definición de 
la misma, ésta se almacena por 
encima de la antigua. Las nuevas 
referencias a dicha palabra afectarán 
a la definición más reciente de la 
misma. Sin embargo, las antiguas 
palabras seguirán existiendo. Para 
actualizar estas definiciones y 
eliminar las antiguas, es necesario 
emplear la palabra RE DE FINE. 



Con ello, el ordenador informa que la 
nueva palabra ha pasado a formar parte 
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del diccionario, y puede ya utilizarse li- 
bremente: 



3 8A<CR> 
38A70K 



Con lo cual, la nueva palabra queda 
ya incluida en el diccionario y puede ser 
utilizada a voluntad. 

Para escribir la definición de una pa- 
labra no sólo puede emplearse el méto- 
do aplicado en el ejemplo anterior. Exis- 
te otra posibilidad alternativa que con- 
siste en escribir la definición a modo de 
una serie de palabras, una tras otra, se- 
paradas por espacios. En el caso del 
ejemplo descrito, la definición también 
podría haberse realizado como sigue: 

: PALABRA 2+;<CR> 

Ambos métodos de definición no 
muestran, en principio, ninguna diferen- 
cia aparente; en pantalla obtendremos 
el mismo mensaje que en el caso ante- 
rior. 

Veamos a continuación cómo puede 
utilizarse la palabra definida. De traba- 
jar en modo inmediato, es suficiente con 
introducir el nombre de la palabra en 
cuestión para que ésta se ejecute. Para 
ello, en primer lugar, se depositará en 
la pila un valor, y tras ello, ordenare- 
mos a la máquina que visualice en la 
pantalla eí número situado en la cima 
de la pila: 

3 PAIABRA.<CR> 

Por supuesto, las palabras definibles 
pueden ser mucho más complejas que 
a contemplada en el ejemplo. En suce- 
sivos ejemplos se verán definiciones de 
palabras cada vez más evolucionadas, a 
medida que se avance en el conocimien- 
:o de los bucles, decisiones y otros tipos 
de estructuras. 

Llegados ya a este punto, resulta in- 
teresante poder conocer las palabras 




se escribirá el comentario que se desee 
encerrado entre paréntesis. Por ejem- 
plo: 

:MENSA<CR> 

(GENERACION DE UN MENSAJEKCR> 

/'ESTE ES EL M EN SAJE "<C R> 

;<CR> 

La respuesta en pantalla coincidirá 
con: 

¡MENSA (GENERACION DE ÜN MENSAJE) 

."ESTE ES EL MENSÁJE' J ;0K 

ia palabra EDIT traslada la definición 

de una palabra ai buffer de entrada. Desde luego, podemos ejecutar la 

permitiendo con ello realizar sobre la nueva palabra definida de forma inme- 
misma las modificaciones que sean diata: 
fi necesarias . 

que existen en el diccionario que esta- MENSA<CR> 

mos utilizando. El propio lenguaje ESTE ES EL MENSAJE OK 

FORTH incluye una palabra al efecto ca- I 
paz de mostrar por panta lia todas las pa- 
labras existentes en el diccionario. Se 
trata de la palabra VLIST. Una vez intro- 
ducida esta palabra, y tras pulsar la te- 
cla de retorno de carro, aparecerán en 
la pantalla todas las palabras que com- 
ponen el diccionario. 

También es conveniente saber cómo 
es posible incluir dentro de una palabra 
comentarios que más tarde servirán 
como orientación a la hora de efectuar 
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Aún cuando en ía actualidad invade ef terreno de los microordenadores . el FQRtH 
es un lenguaje que se creó sobre grandes equipos 



Cambiando definiciones de 
palabras 

La definición de una nueva palabra no 
es algo inamovible, sino que una pala- 
bra puede ser borrada del diccionario o 
cambiada cuando así se desee; aunque, 
por supuesto, hay que tener en cuenta 
el hecho de que pueden existir otras pa- 



labras que hagan referencia a la pala- 
bra sujeta a modificación. 

En una determinada situación, puede 
resultar interesante conocer cuál es la 
definición de una cualquiera de las pa- 
labras que existen en el diccionario. 
Para ello basta con ejecutar la palabra 
LIST, cuyo formato coincide con el si- 
guiente: 

UST<palabraXCR> 



Donde <palabra> es la palabra cuya 
definición se desea visualizar en la pan- 
talla. Por ejemplo: 

LIST PALABRA<CR> 

: PALABRA 
2 + 

* OK 

También puede resultar de interés bo- 
rrar algunas de fas palabras que forman 
parte del diccionario. Para ello también 
existe una palabra FORTH especializa- 
da: se trata de FORGET, cuya formula- 
ción debe ofrecer el siguiente aspecto: 

FÜRGET<paiabraXCR> 

En donde <palabra> es la palabra 
que deseamos que desaparezca del dic- 
cionario. Evidentemente no es posible 
hacer desaparecer ninguna de las pala- 
bras incluidas originalmente en el pro- 
pio traductor de FORTH. 

Veamos un ejemplo: 

FORGET MENSAJE<CR> 

La respuesta del ordenador será: 

FORGET MENSAJE OK 

Si a continuación se intenta visualizar 
la definición de la palabra borrada, la 
respuesta de la máquina coincidirá con 
un mensaje de error (LIST ERROR). 

También es posible introducir modifi- 
caciones en Ja definición de una pala- 



□ Un vocabulario surtido para la creación de bucles facilitará la puesta a punto de 
estructuras fundamentales en el ámbito de la programación l 
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bra ya existente. Al respecto, basta con 
llevar la definición de dicha palabra al 
buffer de entrada (hay ordenadores en 
los que es suficiente con que la defini- 
ción se encuentre en la pantalla). Para 
conseguirlo, hay que hacer uso de la pa- 
labra EDIT, cuyo formato es el siguiente; 

EDIT<palabraXCR> 



Donde <palabra> es la palabra que 
se desea trasladar al buffer de entrada 
en orden a realizar en ella las modifica- 
ciones pertinentes. 

Veamos a continuación un ejemplo 
ilustrativo de su puesta en práctica. Se 
empezará definiendo una palabra que 
eleve un número al cuadrado. 

;CUAD R AD 0<C R> 

*.<CR> 

;<CR> 




ctf) > C¿> 

£><££) 
ó = Ó 

I Los operadores lógicos resultan de gran utilidad para la comparación 
de pares de elementos. Su resultado puede utilizarse como 
condición a evaluar para tomar una decisión. 



En esta definición hay un error, ya que 
lo lógico sería introducir el número del 
que se desea obtener el cuadrado, y que 
el ordenador entregara la respuesta; 
algo semejante a: 

3 CUADRADQ<CR> 

Sin embargo, y lamentablemente, el 
ordenador entrega por toda respuesta 
un mensaje de error. Ello se debe a que 
se ha ordenado a ía máquina que muí- 
tiplique dos números; estos serán los si- 
tuados más cerca de la cima de la pila. 
Como quiera que la definición tan sólo 
deposita uno de ellos en la pila, el or- 
denador no es capaz de encontrar el se- 
gundo número. Para evitar tal situación, 
es preciso incluir en la definición una 
□ala bra que duplique la cima de la pila 
la instrucción DUP, por ejemplo). 

Para proceder a la modificación de la 
palabra CUADRADO, se empezará escri- 
biendo la instrucción: 

EDIT CUADRADO<CR> 

Acto seguido, es posible ya acondicio- 
nar la definición de la palabra hasta de- 
arla de la siguiente forma: 

LADRADO 



No obstante, si ahora se hace uso de 
la palabra VLIST, el programador des- 
cubrirá que existen dos definiciones de 
la misma palabra. 

En principio, y en el caso de operar en 
el modo inmediato, tal situación no 
plantea problema alguno. No obstante, 
si antes de realizar dicha modificación 
se hubiera definido otra palabra — por 
ejemplo TARA — que hiciera uso de la 
palabra CUADRADO, tras efectuar la 
modificación se observaría que la pala- 
bra TARA sigue utilizando la primitiva 



definición de la palabra CUADRADO. 
Para actualizar esta referencia y, en 
consecuencia, eliminar las definiciones 
redundantes, se hace necesario ef em- 
pleo de la palabra REDEFINE, Esta ac- 
tualiza las versiones de una palabra y 
las referencias que otras palabras ha- 
gan a la misma. Su formato es el si- 
guiente: 

REDEFIN E<pa labraXC R> 

A partir de los conocimientos expues- 
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tos en los párrafos anteriores, es posi- 
ble ya ir pensando en la elaboración de 
ios primeros programas en lenguaje 
FORTH. 



Realizando comparaciones 

En esencia, una decisión consiste 
sencillamente en la elección de una en- 
tre dos o más posibles alternativas. 
Cada una de las opciones a seleccionar 
tiene asociado un proceso diferente, ya 
sea en su totalidad o en parte, respecto 
al asociado a las restantes alternativas 
que se ofrecen. 

Toda decisión se fundamenta en una 
determinada condición a evaluar. En el 
caso de disponer de dos alternativas, si 
el resultado de evaluar la condición im- 
puesta es cierto, se actuará en un sen- 
tido, mientras que si es falso se actuará 




Los hueles permiten repetir de forma automática 
secuencias de operaciones predefinidas. 




Las instrucciones de bifurcación permiten seleccionar uno 
de entre los dos caminos posibles; la elección dependerá 
del cumplimiento o no de ¡a condición que se imponga . 



en otro, A raíz de tal razonamiento, pa- 
rece obvio que lo primero que es preci- 
so conocer es cuáles son las condicio- 
nes que pueden darse al ordenador para 
que éste proceda a su examen y, en con- 
secuencia, tome una decisión. En el 
caso del lenguaje FORTH, las condicio- 
nes admisibles son las establecidas por 
medio de los operadores cuyas palabras 
FORTH se definen a continuación: 

- Toma los dos números situados más 
cerca de la pila y examina si son iguales. 
< Toma los dos números de la cima de 



3a pila y comprueba si el segundo es me- 
nor que el primero. Ello equivale a exa- 
minar si el número situado en la cima 
de la pila es mayor que el que se en- 
cuentra a continuación de éste. 

> Toma los dos números de la cima de 
la pila y comprueba si el segundo nú- 
mero es mayor que el primero. 

0= Toma el número situado en Ea cima 
de la pila y comprueba si es cero, 

0< Comprueba si el número situado 
en la cima de la pila y comprueba si es 
menor que cero. 



0> Toma el número situado en la cima 
de la pila y comprueba sí es mayor que 
cero, 

EE resultado de cualquiera de estas 
evaluaciones puede tomar dos valores: 
VERDADERO o FALSO, En el caso de 
ser verdadero, el ordenador deposita en 
la cima de la pila un uno, mientras que 
si es falso el valor depositado será un 
cero. 

En este punto resulta conveniente se- 
ñalar la posibilidad que existe de com- 
binar dos o más condiciones para obte- 
ner un único resultado. Veamos algún 
ejemplo, expresado literalmente, ilus- 
trativo de condiciones evaluadles de 
acuerdo a la referida posibilidad: 

«¿El número A es mayor que B y a su 
vez el número D es menor que B», 

«¿El número A es mayor que B o A es 
igual a B», 

El medio para establecer estas condi- 
ciones compuestas, derivadas de la sín- 
tesis de dos o más condiciones elemen- 
tales, lo aportan los operadores lógicos 
Como ejemplo veamos cómo se escribi- 
rían las condiciones enunciadas ante- 
riormente en el caso de sustituir los da- 
tos A, B y D por ciertos valores numéri- 
cos constantes y determinados. 

4 7>3 7<AND.<CR> 
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4 7>3 7<AND.O OK 




Diagrama de flujo correspondiente a un bucle controlado. 



5 5>5 5=0R.<CR> 

5 5>5 5=0R.1<CR> 



Elección del camino adecuado 

Una vez que se conoce la forma de im- 
poner una condición, es preciso saber 
cómo aplicar su examen a la decisión 
entre dos alternativas. 

Existen tres palabras claves del dic- 
cionario FORTH ligadas con las estruc- 
turas de decisión. Estas son: IF, ELSE y 
THEN. La primera de ellas se emplea 
para ordenar a la máquina que tome una 
decisión. La segunda delimita el primer 
bloque de instrucciones, justamente el 
que se ejecutará en el caso de que la 
condición sea cierta; dicha sección de 
instrucciones será, por lo tanto, la com- 
prendida entre las palabras IF y ELSE. 




La ejecución de un bucle DO/LOOP 
puede compararse con una carrera 
de velocidad que termina una vez 
que se han completado un 
determinado número de vueltas al 
circuito. 4 su vez ios bucles del tipo 
DO/UNTÍL son equiparables a las 
«24 horas de Le Mans »: hay que 
correr durante 24 horas sin importar 
el número de vueltas que se 
den al circuito. 



El segundo bloque de instrucciones, 
el que se ejecutará en el caso de que la 
condición no se cumpla, queda delimi- 
tado entre las palabras ELSE y TFIEN. 

Sin lugar a dudas, un ejemplo vale 



más que mil palabras; veamos pues un 
ejemplo de aplicación de una de estas 
condiciones. Para ello vamos a definir 
una palabra que llamaremos EXAMEN. 
En caso de que la cima de la pila con- 
tenga un número inferior a 50, el orde- 
nador exhibirá en la pantalla el mensa- 
je SUSPENSO; mientras que si dicho 
número es mayor que 50 aparecerá el 
mensaje APROBADO. 

:EXAMEN<CR> 

50«CR> 

1F<CR> 

.”SUSPENSO"<CR> 

ELSE<CR> 

. M APRQBADO"<CR> 

THEN<CR> 

;<CR> 

A modo de respuesta, el ordenador 
mostrará en pantalla la siguiente confir- 
mación. 

EXAMEN 5CKIF.''SUSPENS0 N ELSE/' 

APR0BADCTTHEN ; OK 



Una vez definida la palabra EXAMEN, 
es posible ya utilizarla en la práctica. 
Por ejemplo: 



40 EXAMEN<CR> 

40 EXAMÉN SUSPENSO OK 



70 EXAMEN<CR> 

70 EXAMEN APROBADO 0K 



En ocasiones es posible que la eva- 
luación de la condición impuesta no 
conduzca a dos procesos distintos entre 
los que elegir; en efecto, uno de los pro- 
cesos puede ser nulo y dar lugar a que 
prosiga, sencillamente, la ejecución del 
programa. En semejante situación no es 
necesario incluir ia palabra ELSE utili- 
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— v zada en el ejemplo al definir la palabra 
^ ■ EXAMEN. Ejemplo; 



r 



DO 




Buc I e 
i nterno 



LOOP 



Buc I e 
externo 



LOOP 1 

RNIDHMIENTO CORRECTO 

\ 





: ELIGE<CR> 

DUP13=<CR> 

IF<CR> 

DROP 12<CR> 

THEN<CR> 

;<CR> 

ELIGE DUP 13-IFDROP 12THEN; OK 

La nueva palabra definida, ELIGE, 
examinará el número situado en la cima 
de la pila, y en caso de que éste sea 
igual a 13 lo sustituirá por el valor 12. 
Este es un ejemplo elemental de estruc- 
tura de decisión en la que está ausente 
la zona ELSE. 




Bucles elementales 



Un bucle consiste en la repetición cí- 
clica y bajo control de una secuencia de 
instrucciones. Una forma elemental de 
construir un bucle es la que ilustra el si- 
guiente ejemplo: 

:BUCLE<CR> 

DUP 1Ü«CR> 

IF<CR> 

1 + DUP.BUCLE<CR> 

ELSE<CR> 

.Tir<CR> 

;<Cñ> 

iBUCLE DUP 10 IF 1+DUP.BUCLE ELSE." 

FIN" ; OK 




La palabra definida recoge el número 
situado en la cima de la pila y comprue- 
ba si es menor que 10; de ser cierto, in- 
crementa su valor en una unidad, e in- 



B Ejemplos de atildamiento correcto e 
incorrecto de bucles DO/LOOP. En 
la ilustración inferior se observa una 
estructura algo más compleja, en ía 
que un bucle externo engloba a dos 
bucles independientes. 
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voca de nuevo a la propia palabra BU- 
CLE. El proceso se detendrá cuando se 
alcance un valor superior a 10. 



2 BUCLE CR 

2 BUCLE 34 5 6 78 9 10 FIN 0K 



Bucles controlados 

No es imprescindible construir los bu- 
cles «a mano», sino que el programador 
tiene a su alcance algunas estructuras, 



ncluidas en el vocabulario FORTH, que 
permiten el control de bucles. Tal es el 
:aso de la estructura DO/LOOP, cuya 
especialidad es hacer que se repita la 
f ecución de una secuencia de instruc- 
: enes un determinado número de ve- 
ces. Para ello, es necesario prefijar los 



I EXIT permite abandonar ta ejecución 
de un bucle # por la puerta falsa». 



valores inicial y final del contador de bu- 
cles. Ambos números deben depositar- 
se previamente en la pila. El primero a 
situar en la pila debe ser el correspon- 
diente al valor final y el segundo el va- 
lor inicial. 

La secuencia de instrucciones a repe- 



tir {instrucciones del bucle) debe estar 
delimitada entre las palabras clave DO 
y LOOP. 

Veamos a continuación un ejemplo; 
se trata del mismo bucle construido an- 
teriormente, si bien, ahora intervendrán 
en el mismo las palabras DÓ/LOOP. 

:BUCLE<CR> 

2 10 2<CR> 

D0<CR> 

1 +DUP.<CR> 

L00P<CR> 

;<CB> 

BUCLE 2 10 2 1+DUPiOOP ; 0K 

Y aquí está el resultado de invocar a 
la palabra BUCLE definida: 

BUCLE<CR> 

BUCLE 3456789 10 0K 

La técnica más sencilla para la crea- 
ción de un bucle se concreta en partir 
de un valor de referencia prefijado, va- 
lor que debe incrementarse en una uni- 
dad cada vez que sea recorrido el blo- 
que de instrucciones que dan cuerpo al 
bucle; la secuencia de ejecución cíclica 
terminará, saliendo del bucle, cuando ef 
valor de referencia —contador de ci- 
clos— alcance el valor final, también 




■ LEAVE es una palabra del vocabulario FORTH cuya llamada 
permite abandonar la ejecución de un bucle. 
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DO/WHILE/REPEAT 

DO 

_J 



PROCESO 1 




PROCESO 2 



REPEAT 

£¡ Las palabras DO/WHILE/REPEAT 
l actúan sobre dos procesos que se 
I ejecutarán cíclicamente hasta que 
I deje de cumplirse una determinada 
I condición, Tal como muestra ei 
■! diagrama de flujo, el proceso 2 no se 
ejecutará al salir de la estructura. 

pref ijado. En ciertas ocasiones, es nece- 
sario crear un bucle en el que, en cada 
pasada, el incremento del valor de refe- 
rencia no sea unitario, sino de varias 
unidades; e incluso puede interesar que 
el valor del incremento sea positivo o 
negativo. 

Para contemplar esta posibilidad, el 
lenguaje FORTH dispone de una pala- 
bra adecuada para sustituirá la palabra 
LOOP que encontrábamos anteriormen- 
te, Esta nueva palabra (+LOOP) incre- 
mentará el valor del índice en tantas 
unidades como indique el número que 
se encuentre en la cima de la pila. 
Veamos un sencillo ejemplo: 

:CANGREJO<CR> 

10<CR> 

D0<CR> 

— KCR> 

4L0ÜP<CR> 

;<CR> 

La ejecución de la palabra que acaba- 
mos de crear, CANGREJO, no produce 
ningún resultado en la pantalla. Para 



observar algún efecto en la visualiza- 
ción vamos a introducir una nueva pa- 
labra FORTH. Se trata de ta palabra I, 
cuya función consiste en copiar el valor 
del índice, que se encuentra en la pila 
de retorno, a la pila de datos, permitien- 
do de este modo realizar alguna opera- 
ción con el referido índice. 

En este caso, el índice utilizará para 
examinar la forma en la que evoluciona 
el recorrido del bucle. Al efecto, será 
preciso editar la palabra CANGREJO, 
previamente definida, y modificarla has- 
ta que adopte la siguiente forma: 

: CANGREJO 
10 
DO 
1.-1 
+L00P 



Ahora, al invocar la palabra CANGRE- 
JO, la respuesta en pantalla será la si- 
guiente: 



CANGREJO<CR> 

CANGREJO 10 987654321 0 OK 



En efecto, se observa que tal y como 
se ha previsto, el índice evoluciona en 
sucesivos saltos de —1 unidad por cada 
pasada que se da al bucle. 

Además de la palabra I, cuya misión 
es pasar un valor de la pila de retorno 
a la de datos, existen más palabras 
FORTH que permiten operar pasos de 
una a otra pila. Por ejemplo: ta palabra 
>R, la cual permite pasar valores de la 
pila de datos a la de retorno, y la pala- 
bra R> que los transfiere de la pila de 
retorno a la pila de datos. 



Bucles anidados 

Al igual que la mayor parte de los len- 
guajes de alto nivel, también en el 



FORTH es posible construir bucles ani- 
dados. El anidamiento de bucles consis- 
te, sencillamente, en introducir nuevos 
bucles dentro de otros más generales. 
La única condición que se impone al 
anidamiento de bucles es, precisamen- 
te, que tal anidamiento sea correcto. Es 
decir, si un bucle está incluido dentro 
de otro más amplio, es necesario que el 
bucle anidado comience y termine en el 
interior del bucle externo. 

En el cuadro adjunto puede observar- 
se algún ejemplo gráfico de anidamien- 
to correcto e incorrecto. 

En la figura adjunta, se observa que 
también es posible realizar anídamien- 
tos más complejos. El ilustrado corres- 
ponde al anidamiento de tres bucles en 
dos niveles: el bucle externo incluye a 
dos bucles elementales y encadenados 
en sucesión. 

Veamos un ejemplo programado de 
anidamiento de bucles: 

:BUCLE<CR> 

5 1 <CR> 

D0<CR> 

1.5 1<CR> 



DO/UNTIL 

I 

PROCESO 



I 




La estructura DO/UNTIL permite 
repetir un proceso tantas veces come 
' sea necesario que llegue a cumplirse 
\ ta condición impuesta. 
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DO<CR> 

KCR> 

LOOP<CR> 

CR<CR> 

LOOP<CR> 

;<CR> 

En el ejemplo aparece una nueva pa- 
labra FORTH: CR, !a cual ordena un re- 
torno de carro en la pantalla; esto es; al 
ejecutar la palabra CR cambia la posi- 
ción del cursor, pasando del punto en el 
que la dejó la anterior operación reali- 
zada en la pantalla al comienzo de la si- 
guiente línea. 

Al invocar a la palabra BUCLE: 
BUCLE<CR> 

se observará en la pantalla conectada 
al ordenador el resultado que sigue: 



BUCLE 1 1 2 34 5 
212345 
312345 
412345 
5 1 2 3 4 5 OK 



Veamos un nuevo ejemplo: 

:FILAS<CR> 

CR 1+1<CR> 

D0<CR> 

l(KCR> 

D0<CR> 



Comparaciones 

Los operadores de comparación trabajan con números 
depositados en la pila, dando como resultado los valores 
uno (verdadero} o cero (falso). 

“ Comparador de igualdad 
< Menor que 
> Mayor que 

0= Comprueba si el número es igual a cero 
(K Comprueba si el numero es negativo 
Ü> Comprueba si el número es positivo 




PILA DE PILA DE 

DATOS RETORNO 



I Las palabras >R y <R permiten 

transportar datos de la pila de datos 
a la de retorno y viceversa. 



/'* HJ <CR> 

LÜ0P<CR> 

CR<CR> 

L00P<CR> 

CR<CR> 

;<CR> 

Para invocar a la nueva palabra defi- 
nida (FILAS), es necesario dejar en la 
pila un valor que indique el número de 
filas de asteriscos que se desea dibujar 
en la pantalla. 



4 FILAS<Cñ> 

4 FILAS 
* 

** 

OK 



Para abandonar un bucle durante su 
ejecución, es necesario ejecutar una 
instrucción LEAVE, la cual permite 
abandonar el ciclo en curso. Para ello, 
llevará el valor del índice al límite y ori- 
ginará la salida del bucle tras comple- 
tar la pasada que se esté efectuando en 
ese preciso momento. 



Bucles indefinidos 

Los bucles que se han utilizado hasta 
el momento eran bucles controlados. 
Ello significa que el bucle se ejecuta un 
número de veces previamente estable- 
cido, antes de que dé comienzo la eje- 
cución del bucle (excepto en el caso de 
que se utilice la palabra LEAVE). 

Existen otros dos tipos de bucles cuyo 
funcionamiento difiere del descrito has- 
ta ahora. Se trata de ios bucles creados 
con el apoyo de las palabras BE- 
GIN/UNTIL y BEGIN/WHI LE/RE PEAT. 
En esencia, estos bucles se ejecutan 
tantas veces como sea necesario hasta 
que se vea satisfecha una condición. 
Veamos cada uno de ambos casos por 
separado. 

• Bucles BEGIN/UNTÍL 

Se ejecutarán las instrucciones ence- 
rradas entre las palabras BEGIIM y UN- 
TIL las veces que sea necesario hasta 
lograr que se verifique la condición im- 
puesta. La evaluación del referido con- 
dicionante ha de realizarse antes de lle- 
gar a la instrucción UNTIL, de tal forma 
que al llegar al nivel de UNTIL, se en- 
cuentre en la cima de Ea pila el valor 
«verdadero» o «falso». Veamos un ejem- 
plo: 



IF/THEN/ELSE 

Esta estructura permite tomar decisiones entre dos 
alternativas, en base a una condición impuesta. El 
proceso que se ha de ejecutar en el caso de que la 
condición sea cierta se detalla entre las palabras IF y 
EL3E, mientras que el proceso a ejecutar en caso de 
que no se cumpla la condición se especificará entre las 
palabras ELSE y THEN. 



DO/LOOP 

Permite definir bucles que se ejecutarán repetidamente 
un determinado número de veces, a partir de un valor 
inicial y hasta un valor final; estos dos valores deben 
depositarse previamente en la pila. El proceso que 
constituye el bucle debe escribirse entre las palabras 
clave DO y LOOP. 
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Tabla de valores FORTH 


PALABRA 


DESCRIPCION 


TIPO 




Indica el comienzo de la definición de une 
palabra. 


Palabra de definición 


; 


indica el fin de la definición de una palabra 


Palabra de definición 


LIST<palabra> 


Lista fa definición de una palabra 


Tratamiento de palabras 


FORGET<palabra> 


Borra una palabra del diccionario. 


Tratamiento de palabras. 


ED!T<palabra> 


Edita Ja definición de una palabra. 


Tratamiento de palabras. 


REDEFJNE<palabra> 


Actualiza el diccionario y las referencias a 
una palabra. 


Tratamiento de palabras. 


= 


Comparador de igualdad 


Operador de comparación. 


< 


Menor que. 


Operador de comparación. 


> 


Mayor que 


Operador de comparación. 


0= 


Comprueba si el número es igual a cero. 


Operador de comparación. 


0< 


Examina si el número es negativo. 


Operador de comparación. 


0> 


Examina si el número es positivo. 


Operador de comparación. 


IF/THEN/ELSE 


Estructura alternativa que permite elegir entre 
dos procesos. 


Estructura alternativa. 


DO/LOOP 


Estructura repetitiva que permite ejecutar un 
proceso un numero dado de veces. 


Estructura repetitiva, 


D0/+L00P 


Creación de un bucle, con un incremento 
sucesivo del índice distinto a la unidad 


Palabras de control 


LEAVE 


Permite abandonar un bucle antes de que éste 
sea completado 


Palabras de control 


DO/UNTIL 


Ejecuta un proceso hasta que se cumple la 
condición impuesta 


Palabras de control 


DO/WHILE/REPEAT 


Ejecuta un proceso hasta que deje de 
cumplirse la condición establecida 


Palabras de control 


EXIT 


Permite abandonar un bucle DO/UNTIL o 
DO/WHILE sin necesidad de que se satisfaga 
la condición impuesta 


Palabras de control 


1 


Toma el valor del índice de la pila de retorno 
y los pasa a la pila de datos 


Transferencia de datos 


CR 


Genera un retorno de carro 


Impresión en pantalla 


R> 


Transfiere valores de la pila de retorno a la de 
datos 


Transferencia de datos 


>R 


Transfiere valores de la pila de datos a la de 
retorno 


Transferencia de datos 



;+“<CR> 

BEGIN<CR> 

UDUP .DüP 8<CR> 
XCR> 

UNTIL<CR> 

;<0R> 



Al invocar la ejecución de la palabra 
definida se obtiene ía siguiente respues- 
ta en pantalla: 

1+— 2 3456789 OK 

La instrucción B EGÍN/WHI LE/ RE- 
PE AT presenta algunas diferencias 
esenciales respecto a ¡a instrucción UN- 
TIL, Para empezar, en este nuevo caso 
la ejecución se detendrá precisamente 
cuando Ja condición deje cumplirse. 
Además, hay dos secciones dentro del 
bucle: una de ellas se ejecuta antes de 
examinar la condición (la zona compren- 
dida entre BEGIN y WHILE), mientras 
que la otra sección se ejecutará tan sólo 
si la condición se cumple. En caso de 
que no se verifique la condición impues- 
ta, la secuencia saltará directamente a 
la instrucción que sigue a la palabra RE- 
PEAT 

El siguiente ejemplo ilustra alguno de 
estos conceptos: 

<CR> 

BEGIN<CR> 

2+DUP 16«CR> 

WHILE<CR> 

DUP.<CR> 

REPEAT<CR> 

;<CR> 

Veamos cuál será el resultado de eje- 
cutar la nueva palabra: 

T — <CR> 

Y la respuesta que se obtiene en pan- 
talla es Ja siguiente: 

1—3 5 7 9 11 13 15 OK 

De estos bucles también es posible 
salir por la «puerta falsa» empleando la 
instrucción EXIT; al igual que ocurría 
con los bucles controlados en el caso de 
ejecutar la instrucción LEAVE. 
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FORTH (3) 



Entrada de datos y 
bases de numeración 




1 El diálogo con la 
, máquina en 
1 FORTH se 
j establece 
[ normalmente 
¡ recurriendo al 
í teclado como vía 
! afe entrada. En tal 
i cesa entra en 
! actividad el 
¡ «buffet de 
entrada», una 
zona de memoria 
. que actúa a 
■ modo de 
I intermediario 
entre el usuario y 
' el ordenador. 



a finalidad de un 
programa no es 
otra que instruir al 
ordenador para 
que éste realice 
un determinado tratamiento de los da- 
tos aportados. Estos datos pueden estar 
incluidos dentro del programa, con lo 
cual el proceso resulta sencillo. No obs- 
tante, la situación más normal es ia de 
construir el programa sin contar con los 
datos específicos a procesar. Ello supo- 
ne que será preciso introducirlos cada 
vez que se ejecute el programa, ya sea 
previamente o bien durante el proceso. 

En el primero de los casos es suficien- 
te con colocar los datos en la pita, y or- 
denar las operaciones oportunas para 
que el programa sea capaz de tratar 
esos valores. 

En el segundo caso los datos han de 
introducirse durante el proceso, y para 
ello es necesario utilizar las palabras 
que el FORTH brinda a tal efecto. Estas 
palabras constituyen, precisamente, el 
objeto del presente capítulo. 

Trabajando con el buffer de 
entrada 

El buffer de entrada es una zona de 
memoria que actúa a modo de interme- 
diario entre el usuario y el ordenador. 
Lo que el programador teclea al editar 
un programa va escribiéndose en el buf- 
fer, y pasa a la memoria del ordenador 
cuando se acciona la tecla de retorno de 
carro. En consecuencia, parece obvio 
que una forma de pasar datos a un pro- 
ceso consiste, sencillamente, en explo- 
tar la función propia del buffer de entra- 
da. 

Existen dos instrucciones que sirven 



para introducir datos en el ordenador a 
través del buffer, éstas coinciden con 
las palabras QUERY y RETYPE. Ambas 
detienen el proceso en curso y facilitan 
el acceso al buffer. La diferencia entre 
ambas es que la primera empieza bo- 
rrando el contenido previo del buffer de 
entrada, y a continuación permite acce- 
der al mismo. La segunda no borra ni al- 
tera el contenido previo, por lo que será 
posible editar el contenido del buffer, in- 
troduciendo las modificaciones oportu- 
nas. En todo caso, ninguna de ambas 
palabras afecta a la pila. Desde luego, 
el siguiente paso es tratar el buffer de 
entrada de la forma más adecuada. Para 
ello, el FORTH dispone de cuatro pala- 
bras que será posible emplear según las 
necesidades específicas. Estas son: 

UNE, NUMBER, FINO y WORD 

La primera de ellas. (LINE), toma sen- 
cillamente el contenido del buffer de 
entrada y lo interpreta, produciendo el 
mismo resultado que sí se hubieran te- 
cleado esas mismas palabras en modo 
inmediato. El uso de LINE resulta muy 



flexible, aunque no deja de plantear 
ciertos problemas, ya que la palabra o 
palabras introducidas en el buffer pue- 
den originar tras su interpretación y eje- 
cución un resultado no previsto e inde- 
seado. Por ejemplo, el resultado puede 
ser la obtención de dos números, en lu- 
gar de uno solo como en principio podía 
estar previsto. 

Veamos un ejemplo de definición en 
el que intervienen las patabaras clave 
QUERY y LINE: 

: ENTRADA 

CR 

/INTRODUCE LO QUE DESEES" 

QUERY LINE 

CR 

/'YA SE HA EJECUTADO" 



Y otra nueva definición; 
: SACA 





ENTRADA 



(USUARIO) BUFFER DE ENTRADA 

H El buffer de entrada actúa como intermediario entre el usuario y el ordenador. 



CR 

." SE EJECUTA LA PALABRA SACA" 



Af ejecutar la primera de las palabras 
definidas: 

ENTRADA <CR> 

se obtendrá la siguiente respuesta en la 
pantalla: 
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I ía palabra NUMBER acepta números 
de buffer de entrada y los deposita 
en ¡a pila, situando encima de ellos 
una etiqueta que señala si se trata de 
un número en punto fijo o 
de punto flotante. 



INTRODUCE LO QUE DESEES 



La respuesta del usuario puede ser Ja 
siguiente; 

SACA <CR> 



Con Jo que e! ordenador responderá: 



ENTRADA 

INTRODUCE LO QUE DESEES 
SE EJECUTALA PALABRA SACA 
YA SE HA EJECUTADO OK 



Se observará, pues, que Ja paJabra 
SACA ha sido ejecutada en medio del 
proceso de la palabra ENTRADA. 

NOTA : A partir de ahora, los listados 
aparecerán sin figurar en ellos los re- 
tornos de carro (<CR>) a introducir 
como fin de fínea. 



Introduciendo números 

La palabra NUMBER se utiliza para in- 
troducir números en la pifa desde el buf- 
fer de entrada. NUMBER analizará el 
contenido del buffer de entrada; si no 
encuentra ningún número al principio 
def mismo, entenderá que se trata de un 
cero. El número en cuestión es tomado 
del buffer de entrada y depositado en la 
pila, cofocando además un código enci- 
ma del número; ef código servirá para 
precisar si el número es entero (código 
4102) o de coma flotante (código 4181). 

A título de ejemplo, se define a con- 
tinuación una palabra adecuada para in- 
troducir números enteros en la pifa, 
dando además la posibilidad de editar ef 
número incorrecto que pudiera haberse 
introducido: 



: ENTERO 
BEGIN 

RETYPE NUMBER DUP4181= 
IF 

/'INCORRECTO" 

DROP DROP DROP 0 

THEN 

UNTfL 



Más sobre palabras 



La palabra FIND genera un resultado 
muy distinto respecto af obtenido con 
las dos anteriores. FIND toma una pala- 
bra del buffer de entrada, y la busca en 
el diccionario; en el caso de encontrar- 
ía, deposita enUa cima de la pila la di- 
rección de comienzo de dicha palabra. 
Esta dirección resulta muy útil en orden 
ai posterior uso de Ja paJabra EXECUTE, 
la cual ejecutará Ja palabra cuya direc- 
ción de comienzo se encuentre en la 
cima de la pila. 

Veamos un ejemplo: 




BUFFER 

DE 

ENTRADA 



UNE 



: WORD 



■ Una vez introducida una secuencia de caracteres en el buffer de entrada ésta es 
analizada y recibe un tratamiento distinto dependiendo de la instrucción nue se 
utilice para actualizar el buffer. 
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: DIRECCION 
QUERY FIND 



PAI ARPA 




I 



Al ejecutar la orden FINO, el ordenador buscará la dirección de comienzo de la 
palabra que se le indique a través del buffer de entrada, 
y trasladará dicha palabra a la ama de la pila 




RETYPE 



La palabra RETYPE es la llave que permite acceder al buffer 
de entrada cara modificar su contenido. 



Al ejecutarlo: 

DIRECCION <CR> 

VUST <CR> 

La pantalla mostrará el siguiente resul- 
tado: 



DIRECCION 1581 OK 



A partir de esta dirección es posible 
ya ejecutar la referida palabra mediante 
la orden EXECUTE: 

1581 EXECUTE <CR> 

y de inmediato se obtendrá una lista por 
pantalla de todas las palabras definidas 
en el diccionario FORTH. 

Secuencias de caracteres que no 
son palabras 

Otra palabra FORTH de indudable in- 
terés es WORD. Su cometido se concre- 
ta en almacenar en la memoria del apa- 
rato algunas secuencias de caracteres 
que no constituyen palabras ni núme- 
ros. La zona de memoria donde se al- 
macenan estos datos recibe el nombre 
de PAD. En ella, los caracteres son me- 



morizados mediante su correspondiente 
código ASCII. 

Para conocer la dirección de comien- 
zo de esta zona de memoria se puede 



emplear la palabra PAD, la cual trans- 
ferirá la dirección de comienzo a la cima 
de la pila. 

La secuencia de acciones asociada a 
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ceso de inmediato. Para solventarlo, es 
conveniente utilizar ía palabra INKEY 
dentro de un bucle como el siguiente: 



PAD 



LONGITUD 



I a CARACT. 



./ 



2 CARACT 



B^CARACT. 



./ 



SEPARADOR 



/ 

./ 



1 / 



: BUCLE 
BEGIN 
INKEY 
UNTIL 



Cuando se ejecute la pafabra BUCLE, 
el ordenador aguardará hasta que se 
pulse una tecla para continuar el proce- 
so. 

AJ concluir la ejecución, quedará en 
la cima de la pila el código ASCII del ca- 
rácter pulsado, listo para su posterior 
tratamiento. 



Bases de numeración 

El sistema de numeración casi gene- 
ralizado en el ámbito del ser humano es 



Representación gráfica de la estructura del PAD. 



la ejecución de la palabra WORD es la 
siguiente: 

1 Rellena el PAD con espacios, eli- 
minando cualquier contenido previo. 

2. Toma el código ASCII del carácter 
a emplear como delimitador de entra- 
das, extrayéndolo de la cima de la pila 
(por lo general, suele coincidir con el es- 
pacio cuyo código es 32). El deíimitador 
sirve al ordenador para indicar hasta 
dónde debe leer del buffer de entrada. 

3. Lee del buffer de entrada: obvia fos 
posibles delímitadores que se encuen- 
tren ai principio del buffer, y lee fa pa- 
labra hasta el siguiente limitador. 

4. Copia en el PAD la pafabra leída; 
coloca al principio la longitud de la mis- 
ma, a continuación los códigos ASCII de 
cada uno de los caracteres, y al final eí 



código ASCII de un delimitador (o un 
cero si no encontró ningún limitador an- 
taes del final del buffer). 

5. Coloca en la cima de la pila la di- 
rección de comienzo del PAD. 



Lectura directa del teclado 

El lenguaje FORTH cuenta con una 
palabra capaz de leer cualquier pulsa- 
ción que se efectúe sobre ef teclado; se 
trata de la palabra INKEY. Esta identifi- 
ca la tecla accionada y deposita su co- 
rrespondiente código ASCII a la cima de 
la pila. 

, Un pequeño inconveniente de esta pa- 
labra es que no aguarda a que se pulse 
una tecla para continuar el proceso, 
sino que lee del teclado y si no se ha 
pulsado ninguna tecla continúa el pro- 





■ 



sistema oe numeración mas 
tradicional y difundido es el decimal 
o de base diez. Probablemente, su 
uso generalizado tiene mucho que 
ver con el hecho de que el hombre 
posea diez dedos entre ambas 
manos. 



el decimal o de base diez. Ello parece 
derivar del hecho que fa forma más sen- 
cilla de contar no es otra que utifizar los 
dedos: y como quiera que son diez ¡os 
dedos que se tienen entre las dos ma- 
nos, el sistema de numeración más ob- 
vio y natural es eí de base diez. 
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Desde luego pueden emplearse otros 
sistemas de numeración de distinta 
base. Tal y como se ha detallado a lo lar- 
go de la obra, en el terreno de la infor- 
mática se utilizan los sistemas de nu- 
meración binario, octal y hexadecimal, 
cuyas bases son, respectivamente: 2, 8 
y 16. 

Un artículo que puede ser de gran 
ayuda para comprender las bases de nu- 
meración es el ábaco. 

Trabajar en un determinado sistema 
de numeración es muy semejante a ope- 
rar con un ábaco cuyo número de bolas 
en cada varilla sea igual a la base me- 
nos una. 

Hemos señalado que los sistemas de 
numeración más utilizados son aquellos 
cuyas bases coi nciden con 2,8, 1 0 y 1 6. 
Las razones que motivan su empleo son 
diversas. En primera instancia, la base 
decimal es la más obvia en el ámbito 
humano. A su vez, la binaria es la que 
emplean internamente los ordenadores. 
Y por último, el uso de la octal y la he- 
xadecimal se fundamenta en que son 
muy adecuadas para realizar conversio- 
nes entre las bases decimal y binaria; 
de ahí su frecuente presencia en el 
mundo de la informática. 




La base de numeración habitual en el 
FORTH es la decimal si bien este 
lenguaje esté capacitado para operar 
■ con otras bases de numeración. 



la dirección de memoria correspondien- 
te a la variable que comparte dicho 
nombre; a continuación, las palabras C! 
y C@ efectuarán las operaciones que se 
ordenen a partir de esa dirección de me- 
moria. 

Por ejemplo, si se desea conocer la 
base con la que se trabaja, puede eje- 
cutarse la siguiente orden: 

BASE C@ . <CR> 

La respuesta de la máquina será: 



BASE C@. 10 OK 



de BASE. Esta variable es de ocho bits, 
por lo que no es posible trabajar con ella 
mediante las palabras @ y ! Ello supo- 
ne que para acceder a la misma hay que 
recurrir a dos palabras que también ope- 
ran con direcciones de memoria — al 
igual que @ y ! — aunque accediendo 
tan sólo a un byte; estas son: C @ y C! 

La actuación de las palabras BASE C! 
y C @ es la que se detalla a continua- 
ción. 

La palabra BASE deposita en la pila 



lo cual señala que se está trabajando 
con el sistema de numeración decimal 
(base 10}. 



Trabajando con otras bases en 
FORTH 



Se ha dicho ya que los ordenadores 
trabajan internamente en el sistema bi- 
nario; no obstante están preparados 
para aceptar números en otras bases de 
numeración, bases que suelen coincidir 
generalmente con la decimal, octal y 
hexadecimal. El lenguaje FORTH com 
templa tal diversidad de sistemas de nm 
meración, hasta el punto de que permi- 
te trabajar en cualquier base de nume- 
ración que desee el usuario; basta tan 
sólo con comunicarlo al ordenador de la 
forma adecuada. 

Normalmente, el FORTH trabaja reci- 
biendo y presentando datos en formato 
decimal; ésta es la base que se asume 
al conectar el aparato bajo el control del 
FOHTH. 

Para comprobar con qué base se está 
trabajando en cada momento, es nece- 
sario acceder a una variable del siste- 
ma que, precisamente, recibe el nombre 




043032 



K El ábaco es una herramienta idónea para ilustrar la forma 
i de contar en un sistema de numeración distinto del decimal. 
El ábaco de la figura permite contar en base seis. 
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Para cambiar de base, tan sólo es ne- 
cesario emplear la palabra C! de fa si- 10 10 + .100 0K 
guíente forma: 

2 BASE C! <CR> 

Mediante esta configuración de pala- 
bras se instruye al ordenador para que 
cambíe el sistema de numeración en 
curso, de base 10, pasando a base 2. La 
pantalla mostrará la siguiente respues- 
ta: 

En efecto, fa su 

2 BASE C! QK 



mal) más 10 (2 en decimal) es el núme- 
ro binario 100 (el cuatro en el sistema 
de numeración decimal). 

Suponga que ahora deseamos cono- 
cer cuál es la base con la que estamos 
trabajando Para ello, habrá que repetir 
el mismo proceso realizado anterior- 
mente: 

BASE C @ . <CR> 

Y la respuesta — tal vez sorprenden- 
te— será la que aparece en la siguiente 
de 10 (2 en deei- pantalla: 



Acto seguido pueden ya efectuarse 
las operaciones que se deseen en base 
2; por ejemplo, una sencilla suma de 2 
más 2 unidades: 

10 10 + . <CR> 



(Cabe recordar que en el sistema bi- 
nario, el número decimal 2 se represen- 
ta como 10), 

La respuesta en pantalla coincidirá 
con la que sigue: 






Aunque la representación de dos números en distintas bases de numeración 
coincida , ello no significa que su valor sea el mismo. Por ejemplo, el número 10 en 
ef sistema binario no coincide con el diez decimal sino con el valor decimal 2 
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Distintos tipos de numeración | 
utilizadles en FORTH y su respectiva I 
ocupación de elementos de la pila . 
Cabe recordar que cada elemento de ] 
la pila ocupa dos bytes de memoria 



BASE C @ . 10 OK 



tí» 



¿Qué ha sucedido? Nada anormal, 
puesto que estamos trabajando en base 
dos; y no hay que olvidar que el número 
dos se representa en binario como 10, 
Evidentemente, ésta puede ser una 
fuente de problemas, ya que el usuario 
no tiene por qué saber en qué base ope- 
ra en un determinado momento. Para 
evitar tal inconveniente, resulta muy 
oportuno volver al sistema decimal, me- 
diante la palabra DECIMAL, antes de so- 
licitar al ordenador que muestre la base 
en la que se trabaja. 

DECIMAL <CR> 




ENTEROS CON 
SIGNO 



[ 40.000 


— \ 

Wb 




ENTEROS 

SIGNO 


SIN 




PUNTO FLOTANTE 




DOBLE PRECISION 



DECIMAL 0K 



Con ello, se tendrá la garantía de ha- 
ber vuelto al sistema de numeración de- 
cimal, También desde el propio sistema 
binario se podría haber ordenado el re- 
torno a decimal mediante las siguientes 
palabras: 

1010 BASE CKCR> 

(1010 en binario, corresponde al núme- 
ro 10 decimal). A lo que el ordenador 
respondería con el siguiente mensaje: 




1010 BASE C! OK 



En este punto se podría seleccionar 
otro sistema de numeración, el hexade- 
cimal, de gran utilidad en determinadas 
ocasiones: 

16 BASE C! <CR> 



■ Las palabras FORTH C@ y C! permiten, respectivamente, leer y La imagen en pantalla mostrara el si 

cambiar el contenido de las posiciones de memoria guíente aspecto. 
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SIGNO 



ENTERO CON SIGNO 



1- BYTE 2- BYTE 



ENTERO SIN SIGNO 



1- BYTE 2- BYTE 



Representación gráfica de ia forma de almacenamiento 
de los números enteros con y sin signo. 



16 BASE C! OK 



Acto seguido pueden ya efectuarse al- 
gunas acciones que revelarán la activa- 
ción del sistema de numeración hexa- 
decimal, Por ejemplo: 

1A 122 + . <CR> 



1 A 122 ; . 13C OK 



Los dígitos utilizados en el sistema de 
numeración de base 16 coinciden con 
las cifras decimales de 0 a 9, además de 
con Jas letras A a la F para representar. 



respectivamente, los valores 10, 1 1 r 12, 
13, 14 y 15. 

Es obvio pues, que el lenguaje FORTH 
permite af usuario trabajar a voluntad 
con cualquier sistema de numeración. 

En este caso, hay que tener en cuen- 
ta que Ja base seJeccionada sólo afecta 
a lo que se muestra en Ja pantaJfa; in- 
ternamente, el ordenador recoge los nú- 
meros en une base. Jos convierte al sis- 
tema binario, los opera, y cuando es ne- 
cesario mostrar eJ resultado por panta- 
lla, recoge los datos de memoria en bi- 
nario y los visualiza previa conversión 
al sistema de numeración seleccionado 
por el usuario. 

Distintos tipos de números 

Hasta ahora se han manipulado tan 
sólo números de un mismo tipo; núme- 
ros enteros con signo y de simple pre- 
cisión. Sin lugar a dudas, el trabajo con 
ellos resulta más sencillo; si bien, tam- 
bién es cierto que se ven limitados por 
sus características. Este es el momento 
de presentar nuevos tipos de números 
que ampliarán el abanico de posibilida- 
des del FORTH. La tabla adjunta resu- 
me Jas distintas categorías de números 
normalmente utilizables en FORTH, así 
como sus características más represen- 
tativas. 

En ella figuran cuatro tipos de núme- 
ros: cada tipo resulta especialmente 



adecuado para un distinto marco de 
aplicación. La primera columna de la ta- 
bla incluye el nombre que se otorga a 
cada categoría numérica; nombre que 
suele ser fo suficientemente represen- 
tativo como para evidenciar sus carac- 
terísticas más relevantes. 

La columna bytes señala el número 
de bytes de memoria necesarios para al- 
macenar un número de dicho tipo. 

Hay que recordar que cada elemento 
de la pila ocupa dos bytes de memoria; 
de ahí que un número entero con signo 
esté formado tan sólo por un elemento 
de la pila, mientras que un número de 
doble precisión lo está por dos elemen- 
tos. 

La columna de rango define el mar- 
gen dentro del que pueden estar com- 
prendidos los valores de un número, de 
acuerdo a su correspondiente tipo. En el 
caso de los números de doble precisión 
no se especifica su rango, ya que se 
pueden utilizar de diversas formas (de- 
pendiendo, por ejemplo, de sí se consi- 
dera el signo o no) y por lo tanto el ran- 
go puede variar. 

La notación científica consiste en 
fraccionar el número en dos partes: un 
primer número en punto flotante segui- 
do por la letra E y, tras ésta, un número 
entero con signo correspondiente a la 
potencia de 10 por la que deseamos 
multiplicarlo. Esta notación resultará 
ampliamente conocida por los habitua- 
les usuarios de calculadoras. 

En apartados sucesivos se estudiarán 
cada uno de estos tipos, entrando en de- 
talles acerca de las palabras a utilizar 
para trabajar con ellos. 

Números enteros 

Los números enteros, con o sin signo, 
se almacenan por medio de dos bytes, 
lo que se traduce en Ja posibilidad de re- 
presentar un total de 65536 combina- 
ciones distintas. En el caso de los nú- 
meros enteros, estas combinaciones 
han de utilizarse para almacenar tanto 
los números con signo positivo como 
sus correspondientes valores negativos. 
La diferenciación entre unos y otros se 
establece almacenando los de signo po- 
sitivo en binario, tal cual, mientras que 
los negativos se memorízan en comple- 
mento a dos. 

Tal vez sea conveniente recordar que 
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I Los elementos de la pila parecen tener dos caras: según se interpreten como 

números enteros con signo o sin signo su apariencia será distinta* Realmente, son 
más de dos las formas en las que puede ser interpretado un elemento de la pila. 





H 5.2 - 


rf'®* v n 




_L J 


5.2 



I Los números en punto flotante se almacenan en memoria codificados en cuatro 
bytes y t en consecuencia i, ocupan dos elementos de la pila. Ello significa que para 
acceder a ellos no basta con tomar un sólo elemento de la misma. 



la expresión en complemento a dos se 
obtiene traduciendo el número a bina- 
rio, complementando a uno su configu- 
ración (cambiar los ceros por unos y los 
unos por Jos ceros) y sumando una uni- 
dad al resultado así obtenido. 

la notación en complemento a dos 
permite saber si un número es positivo 
o negativo examinando simplemente su 
primer bit: si es un cero se trata de un 
número positivo, mientras que si es un 
uno el número será negativo. Por su- 
puesto, si se prescinde del signo, ef bit 
reservado al efecto quedará libre y, en 
consecuencia, dicho bit pasará a ocupar 
la posición de peso superior, permitien- 
do representar números de mayor mag- 
nitud. 



Enteros sin signo 

Cuando se trata de trabajar con valo- 
res enteros comprendidos dentro del 
rango que va de 0 a 65535, se puede re- 
currir al tipo denominado: números en- 
teros sin signo. Este tipo de notación re- 
sultará muy útil cuando no se contem- 
ple la posibilidad de operar con núme- 
ros negativos, puesto que con los mis- 
mos 2 bytes, es posible almacenar nú- 
meros de magnitud muy superior a la 
que permiten los enteros con signo. 

Para visualizar un número entero sin 
signo es necesario emplear una palabra 
FORTH cuya denominación se reduce a 
un solo carácter: U. Veamos su efecto: 

123 U. <CR> 

Una vez ejecutada la orden, la panta- 
lla mostrará el siguiente aspecto: 



123 U. 123 OK 



Una característica inherente a la pila 
es que en ella se almacenan los ele- 



mentos uno encima del otro, sin distin- 
ción del tipo numérico asociado al dato 
que se deposita. Eflo significa que el re- 
sultado será distinto dependiento del 
modo de acceso y de la palabra emplea- 
da para visualizar los elementos de la 
pila. 

Supongamos que se utiliza la instruc- 
ción: 



“123U. <CR> 

Ello equivale a introducir en la pifa un 
número con signo negativo, número que 
se almacenará en la misma en comple- 
mento a dos; y, acto seguido, se ordena 
su visualizaron como entero sin signo. 
La respuesta en pantalla será bastante 
curiosa: 
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12756 

Í La zona de 

exponentes define la 
correcta situación del 
punto decimal dentro 
de un número 
expresado en punto 
flotante . 



de un número en complemento a dos 
con otro, equivale a la resta de ambos 
números. Por ejemplo, el resultado de 
sumar los números 6541 3 y-1 23 —uno 
es el complemento a dos del otro— será 
igual a cero. 

Veamos un nuevo ejemplo: 

-123 56+DUP . U, <CR> 

Esta cadena de palabras FORTH orde- 
na a la máquina que calcule la suma de 
fos números “123 y 56, y que muestre 
el resultado en pantalla como número 
entero con signo o como entero sin ^sig- 
no; obviamente, para realizar esto últi- 
mo es necesario duplicar previamente la 
cima de la pila. 

Aquí está la respuesta: 



-123 U. 6541 3 OK 



Desde luego, también cabe realizar la 
operación contraria: 



-123 56+DUP . -67 IX 65469 OK 

El primer resultado (-67) es el lógico, 
mientras que el segundo es la conse- 
cuencia de acceder a la pila con una pa- 
labra inadecuada. Para evitar errores de 
esta índole, conviene tener presente en 
todo momento qué tipo de números se 
encuentran en la pila. 

El que sigue es un nuevo ejemplo. 
Ahora se depositan en la pila dos nú- 
meros enteros sin signo; en este caso, 
el resultado equívoco se producirá al vi- 
sualizar el elemento de la pila como nú- 
mero entero sin signo. 



aritméticas aplicables a los enteros con 
signo son también válidas para los nú- 
meros enteros sin signo, a condición de 
que sean visualizados en pantalla con 
la orden correcta. Para ios enteros sin 
signo no es válida la palabra de compa- 
ración < sí bien, existe otra palabra al- 
ternativa perfectamente utilizable: U<. 



Números en punto flotante 

Los n ü m eros e n p unto flota nte («coma 
flotante» en el caso español, que recu- 
rre a la coma en tugar del punto deci- 
mal) se almacenan en memoria median- 
te cuatro bytes; de ellos, tres se em- 
plean para almacenar un valor numéri- 
co que puede ser positivo o negativo. 
Este número corresponde a las seis ci- 
fras significativas o mantisa del número 
en cuestión, mientas que el cuarto byte 
se reserva para almacenar la potencia 
de 10 por la que hay que multiplicar la 
mantisa para obtener ef valor, represen- 
tado por el conjunto. 

La mantisa es un número racional de 
punto fijo, que se supone con el punto 
decimal situado a la izquierda de su pri- 
mera cifra. 

Para ilustrar esta idea se muestran 
seguidamente algunos ejemplos de re- 
presentación de números en punto flo- 
tante: 



65413. <CR> 
65413, -123 OK 



El resultado de tal experiencia revela 
que, bajo la perspectiva de la pila, tiene 
un mismo efecto la introducción de los 
números 6541 3 y -1 23. Por lo tanto, ha- 
brá que extremar las precauciones 
cuando se trabaje con enteros con sig- 
no, en orden a evitar que se exceda el 
rango de validez de estos números; de 
ocurrir tal situación, se cometerán erro- 
res que el ordenador no advertirá. 

Un hecho constatable es que la suma 



6541 3 56+DUP . U. <CR> 

65413 5G+DUP. -67 ü. 65469 OK 



Cabe observar que las instrucciones 




25.23 Mantisa: 0.2523 
Exponente: 2 

1234.0 Mantisa: 0.1234 
Expon eme: 4 

Para trabajar con este tipo de núme- 
ros, ei lenguaje FORTH brinda un reper- 
torio de palabras especiales. En prime- 
ra instancia cabe hablar de la palabra F, 
destinada a visualizar un número de 
punto flotante. 

Veamos qué sucede cuando se inten- 
ta visualizar un número de este tipo de- 
positado en la pila mediante la palabra 

5,2 .. <CR> 

(La presencia de dos puntos consecuti- 
vos obedece a que los números de pun- 
to flotante ocupan dos elementos de la 
pila). 

Ahí está la respuesta: 
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5.2. 16722. O OK 



Por contra, si se utiliza la palabra ade- 
cuada, el resultado será bien distinto: 



5.2 F. <CR> 



5.2 F. 5.2 OK 

Además de la palabra de visualizaron 
F, el vocabulario FORTH cuenta con un 
surtido adicional de palabras destinadas 
a la ejecución de operaciones aritméti- 
cas. 

, F+ Suma los dos números en punto 
flotante situados en las posiciones su- 
periores de la pila, y deposita el resul- 
tado en la cima de la pila. Así, por ejem- 
plo, el resultado de ejecutar la orden: 

5.2 7.1 F+F. <CR> 

coincidirá con: 

5.2 7.1 F F. 1 2.3 OK 

F- Resta el segundo número en pun- 
to flotante introducido en la pila del in- 
troducido en primer lugar; el resultado 
se deposita en la cima de la pila. 

6. 9.4 F-F. <CR> 

6. 9.4 F-F. -3.4 OK 

F* Multiplica los dos números de 
punto flotante situados más cerca de la 




H Evolución de la pila al ejecutar ¡a operación 5.2 + 7.1 y visualizar el resultado. 




9.4 F-F. [ 





PILA 

9.4 





PILA 

F* 



Manipulaciones de la pila asociadas a la operación 6-9.4 



cima de la pila y deposita el resultado 
en la misma. 

2.1 1 . F*F, <CR> 

2.1 1. F*F. 2.1 OK 



F/ Obtiene la división de los dos nú- 
meros de punto flotante situados en las 
posiciones superiores de la pila, y vierte 
el resultado en la cima de la misma. 

3.4 5 F/F. <CR> 



Tipos de números utilizabas en FORTH 








NOTACION 


TIPO 


BYTES 


RANGO 


CIENTIFICA 


Enteros con signo 


2 


-32768 a 32767 


No 


Enteros sin signo 


2 


0 a 65535 


No 


Punto flotante 


4 


-9.99999E64 a 9.99999E62 


Sí 


Doble precisión 


4 


Según su empleo 


No 
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3.4 5. F/F. .68 OK 



Tabla de órdenes FORTH 



PALABRA 


DESCRIPCION 


TIPO 


QUERY 


Permite introducir caracteres en el buffer de entrada. 


Palabra de E/S 


FIETYPE 


Permite editar el contenido del buffer de entrada. 


Palabra de E/S. 


UNE 


Trabaja con el buffer de entrada, aceptándolo como una entrada 
normal. 


Palabra de E/S, 


NLJMBER 


Toma un número del buffer de entrada. 


Palabra de E/S. 


1 FINO 


Busca la dirección en la que se encuentra compilada Ja palabra 
introducida en el buffer de entrada. 


Palabra de E/S. 


WORD 


Traía el contenido del buffer de entrada como un texto, 
almacenándolo en el PAD. 


Palabra de E/S. 


EXECUTE 


Ejecuta la palabra cuya dirección de memoria se encuentra en la 
' pila. 


Manejo de memoria. 


PAD 


Da la dirección de comienzo del PAD. 


Manejo de memoria. 


INKEY 


Lee el teclado y toma el código ASCII del carácter introducido, 
depositándolo en la cima de la pila. 


Palabra de E/S, 


BASE 


Contiene la base del sistema de numeración con el que se está 
trabajando. 


Variable del sistema. 


C 


Lee el contenido de una posición de memoria. 


Manejo de memoria. 


03 


Cambia el contenido de una posición de memoria. 


Manejo de memoria. 


DECIMAL 


Restaura el valor de la base del sistema de numeración utilizado 
a decimal. 


Sistema de 
numeración. 


U. 


Muestra por pantalla un número entero sin signo extraído de la 
cima de Ja pila. 


Palabra de E/S, 


F. 


Visualiza un número de punto flotante constituido por los dos 
elementos más cercanos a la cima de la pila. 


Palabra de E/S. 


F+ 


Suma dos números de punto flotante, tomando los elementos 
más próximos a la cima de la pila. 


Palabra aritmética. 


F- 


Resta los dos números de punto flotante que se encuentran en 
las posiciones superiores de la pila. 


Palabra aritmética. 


F* 


Multiplica dos números de punto flotante. 


Palabra aritmética. 


F/ 


Divide dos números de punto flotante. 


Palabra aritmética. 


FNEGATE 


Cambia el signo de un número de punto flotante 


Palabra aritmética. 


INT 


Convierte un número de punto flotante a número entero, 
truncando la parte fraccionaria. 


Conversión de tipo. 


UFLOAT 


Transforma un número entero en número de punto flotante. 


Conversión de tipo. 



FNEGATE Cambia el signo del nú- 
mero en punto flotante que se encuen- 
tre en la posición superior de la pila. 

12 FNEGATE F.<CR> 

12. FNEGATE F.-12. OK 

Todas fas operaciones descritas ac- 
tuarán tomando los elementos que se 
encuentren más cerca de la cima de la 
pila y considerándolos como números 
de punto flotante. Esta es una precisión 
muy a tener en cuenta en el caso de eje- 
cutar operaciones aritméticas sobre nu- 
' meros de distinto tipo. 

Los números en notación científica 
son también de punto flotante, taf y 
como muestra el siguiente ejemplo: 

4.7E1 4.7E3 F+F. <CR> 

4.7E14.7F3 F+F. 4747. OK 

Conversión de números de un 
tipo a otro 

Existen palabras FORTH que permiten 
el paso de números en punto flotante a 
números enteros y viceversa; éstas son 
las palabras [NT y UFLOAT, 

La primera de ellas convierte un nu- 
mero de punto flotante en entero, trun- 
cando la parte fraccionaria: 

5. 2. F/INT , <CR> 

3. 2. F/INT. 2 OK 

A su vez, UFLOAT transforma un nú- 
mero entero en número de punto flotan- 
te: 

2 UFLOAT 2.3 F+F. <CR> 

2 UFLOAT 2.3 F+F. 4.3 OK 

Esta última palabra presenta ciertos 
problemas, conducentes a error, cuan- 
do actúa sobre números negativos; por 
ejemplo: 

-12 UFLOAT F, <CR> 

-12 UFLOAT F r 65524 OK 
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FORTH (y 4) 



Números de doble 
precisión, arrays y 
últimos detalles 



ascii n 



0 





PILA 



ASCII es una palabra FORTH que busca en la tabla de códigos ASCI¡ e 
correspondiente al carácter que se especifique, el cual será deposítaos ■ 



uando es necesa- 
ria una mayor pre- 
cisión en los cál- 
culos a realizar en 
FORTH, se puede 
recurrir al empleo de variables de doble 
precisión. Para representar un numero 
de doble precisión hay que contar con 
dos elementos de pila; ello significa que 
un número de esta categoría se alma- 
cena en cuatro bytes de memoria (32 
bits). 

Estos números son relativamente di- 
fíciles de manejar. Si bien existen ins- 
trucciones adecuadas para realizar al- 
gunas operaciones con ellos, no es po- 
sible trasladarlos directamente a la pifa; 
por lo demás, no existen en todas las 
versiones de FORTH palabras adecua- 
das para mostrarlos directamente por 
pantalla (aunque más tarde se estudia- 
rá un método que permite visualizarlos 
realizando una serie de operaciones con 
el PAD). 

El almacenamiento en memoria de 
los números de esta índole se realiza en 
binario y fraccionados en dos partes, la 
primera coincide con un valor numérico 
que representa los 1 6 bits menos signi- 
ficativos del equivalente binario del nú- 
mero a introducir y, tras ésta, se intro- 
duce el valor correspondiente a los die- 
ciséis bits más significativos, 

Como quiera que en principio, no 
siempre existe una palabra específica 
para mostrarlos por pantalla, es preciso 
recurrir a la palabra ésta sóio per- 
mite la visualización de un elemento de 
la pila, luego habrá que ejecutar dos pa- 
labras de este tipo para leer un número 
de doble precisión. 

Para introducir el número 127 en for- 
mato de doble precisión, hay que proce- 
der a Ja siguiente instrucción de datos: 

127 0 <CR> 

Una forma más eficiente de trabajar 
con estos números fa proporciona el sis- 
tema hexadecimal. Al operar en este 
sistema, los dos elementos de la pila 
que se visualizan sí corresponden exac- 
tamente a las cifras que conforman el 
número, aunque en un orden un poco 
peculiar. 

Un número de doble precisión se re- 
presenta por medio de un número hexa- 



decimal de 8 cifras; para introducirlo en 
el ordenador hay que empezar por las 
cuatro cifras situadas más a la derecha 
(las menos significativas) y, a continua- 
ción, se introducirán las cuatro de fa iz- 
quierda (las más significativas). En el si- 
guiente ejemplo, se asume que el siste- 
ma de numeración en el que se trabaja 
es el hexadecimal. 

Suponga que se desea introducir ei 
número: 

25AC7645 



Para ello habrá que depositar -- s 
pila los dos números siguientes 

7645 25AC <CR> 

Tras accionar el retomo re e 

número en cuestión pasará a a “e~: 
ria interna Para visualizarlo se'e r-e-: - 
so ejecutar dos palabras de : ; : 
es: 

.. <CR> 

Tras ello, la pantalla mostrara :e ;:s 
números hexadecimales que _e:- -- 
troducidos en su momento 



LONGITUD 
ASCII DE 1 
ASCII DE 0 
ASCII DE 4 
ASCII DE 3 
ASCII DE 1 

Aspecto del PAD al almacenar ei número 1340 1. 
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I La necesidad de utilizar la palabra U* deriva del hecho de que el producto de dos 
enteros sin signo suele exceder la capacidad de representación 
de valores de este tipo de números. 



.25AC .7645 OK 



Los números negativos de dobfe pre- 
cisión se almacenan en complemento a 
dos. Normalmente, cuando se trabaja 
con otros tipos de números, para alma- 



cenar un número negativo es suficiente 
con anteponer el signo, y el propio or- 
denador se encarga de realizar la com- 
plementación y almacenarlo en el for- 
mato adecuado. En este caso, como 
quiera que el ordenador no introduce el 
número sino que lo hace el propio usua- 
rio (quien debe introducirlo como dos 
números separados), también éste últi- 
mo se verá obligado a tener en cuenta 
el signo y complementar el número para 
obtener el resultado adecuado. Así, para 
introducir el número -234 en formato de 
doble precisión, es necesario introducir 
la siguiente secuencia: 

-234 -1 <CR> 



Operaciones con números de 
doble precisión 

Existen una serie de operaciones en 
las que intervienen números de doble 
precisión, ya sea como operadores, 
constituyendo et resultado, o incluso 
como ambas cosas, A continuación se 
exponen las palabras más importantes 
relacionadas con los números de doble 
precisión. 

D+ Palabra que se emplea para su- 
mar dos números de doble precisión. 

Como el ordenador no es capaz de dís- 
tinguir qué número de los que se en- 
cuentran en la pila son de doble preci- 
sión y cuáles no, entenderá que lo que 
debe hacer es tomar los dos elementos 
situados más cerca de la cima de la pila 
e interpretarlos como uno de los núme- 
ros y, a continuación, tomar los dos ele- 
mentos siguientes e interpretarlos del 
mismo modo. Acto seguido sumará am- 
bos números y depositará al resultado 
en la cima de la pila, adoptando éste el 
formato de doble precisión. 

Por ejemplo, a la orden: 

8 0 6 0 D+ . . <CR> 

el ordenador dará la siguiente respues- 
ta: 

8 0 6 0 D+ .0.14 OK 

DNEGATE Permite cambiar el signo 
de un número de doble precisión. Al eje- 
cutar la instrucción: 

3 0 DNEGATE,, <CR> 




SIMPLE PRECISION 




DOBLE PRECISION 



■ Cuando es preciso lograr una mayor exactitud en ios cálculos realizados con el 
lenguaje FORTH, es necesario recurrir a ios números de doble precisión , 



se obtendrá el siguiente resultado en 
pantalla: 

3 0 DNEGATE -1 -3 OK 

U* Se trata de una palabra que mul- 
tiplica dos números; sin embargo, estos 
dos números no son de doble precisión, 
sino enteros sin signo. La existencia de 
esta peculiar orden se debe a que resul- 
ta frecuente que el producto de dos nú- 
meros enteros de simple precisión des- 
borde la capacidad de representación de 
este tipo numérico. Por ejemplo: 

34 U\.<CR> 
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131145 00000000 00000010 

v. 



00000000 01001001 




del ordenador será; 



i 



Para introducir en ef ordenador un número en doble precisión hay que £ ~ 
caiculando su equivalente binario. Acto seguido , se introducirá en primer i 
número representativo de los 1 6 bits menos significativos , y luego el 
correspondiente a los 16 bits más significativos. 



La respuesta 
3 4 U*.Q .12 OK 

D< Palabra FORTH que compara dos 
números de doble precisión y comprue- 
ba si uno de ellos es menor que el otro. 
Ejemplos: 

8 0 6 0 CK . <CR> 

8 0 6 0 D< .0 OK 

U/MQD Realiza la división de dos 
números, entregando el cociente y el 
módulo de la división. Toma el primer 
elemento de la pila como entero sin sig- 
no, y agrupa los dos siguientes para sin- 
tetizar un número de doble precisión. Es 
una variante de la palabra /MOD que 
trabaja con enteros sin signo, con la sal- 
vedad de que el dividendo es ahora un 
número de doble longitud. 

Ejemplos; 

13 0 6 U/MOD .. <CR> 

13 0 6 U/MOD .2 .1 OK 



La filosofía fundamental del forma- 
teado de números para su visualización 



en pantalla consiste en pasar los dígi- 
tos al PAD en orden inverso, para más 
tarde visualizarlo con el formato desea- 
do. Estos números han de ser de doble 
precisión y positivos. 

Existen una serie de palabras FORTH 
especializadas en el transporte de los 
números de la pila al PAD; éstas son las 
siguientes: 

< n Empieza a pasar el número al PAD. 

#> Termina de pasar el número al PAD; 
elimina el entero de doble precisión de 
la pila y coloca en ella la dirección y lon- 
gitud del PAD. 

*4# Extrae un dígito del número y lo lle- 
va al PAD. 

*S Extrae todos los dígitos hasta que 
el siguiente sea cero. 

HOLD Guarda un carácter ASCII en 
el PAD. 

ASCII Deposita en la pila el código 
ASCII del siguiente carácter. 

Por ejemplo: 

ASCII * . <Cfl> 

ASCII * .35 OK 

A continuación se define una palabra 
que trabaja adoptando este sistema: 



:NUM 

50 

DO 

CR 0 < ° 

*^>TYPE 

LOOP 



Su actuación queda patente er a ; - 
guíente ejecución: 

23 412 12 NUM <CR> 

00012 
00012 
00004 
00003 
00002 OK 



Desde luego, esta rutina í- 

puesto de que en la pila se enc_^'“^ 
cinco números que se desear , sea cu- 
sí no fuera así, el proceso co r>c_:: = = 
error. 

La palabra SIGN permite pssi^ r - - 1 



Impresión de números en pantalla 




el signo de un número entero residente 
en !a pila. Meidante esta nueva palabra 
FORTH, se puede crear la palabra "D", 
la cual permite visualizar en pantalla un 
número de doble precisión con su signo 
correspondiente: 



:D. 

DUP>R OUP 0< 
IF 

DIMEGATE 

THEM 

<*»S R> SIGM *> 
TYPE 



Al ejecutarla: 

-12-1 D. <CR> 

se obtiene la siguiente respuesta: 



-12-1 D. -12 OK 



Taxonomía de las palabras 
FORTH 

En FORTH existen distintos tipos de 
palabras. Hasta el momento se han em- 
pelado tres tipos: las que se definen me- 
diante la palabra «dos puntos» (:), las 
constantes que se definen mediante 
CONSTAN! y las variables que se defi- 
nen por medio de VARIABLE. Existen 
muchos más tipos de palabras, ya que 
el usuario puede definir tipos de pala- 
bras para su propio uso. Dentro de se- 
mejante diversidad caben, por ejemplo, 
palabras para almacenar cadenas de ca- 
racteres y arrays. 

Las palabras que componen el diccio- 
nario FORTH tienen una serie de pun- 
tos comunes: 

1. Cada palabra tiene un nombre que 
sirve para identificarla. 

2. Cada palabra está encadenada a 
las demás. Todas las palabras se basan 
para su definición en palabras ya exis- 
tentes. 

3. Cade palabra tiene una informa-' 
ción (campo de código) que Indica cuál 
ha de ser la acción a realizar cuando se 
ejecute. 







PASAR A BINARIO 
EL VALOR 
ABSOLUTO 




CAMBIAR 
0 POR 1 Y 
1 POR 0 



I 





i i n r 






MEMORIA 






i i i i i 





| Al operar con números de doble 
'( precisión el propio usuario debe 
calcular el complemento a dos de los 
números negativos que hay que 
intoducir en el ordenador El 
diagrama de flujo refleja ios pasos 
necesarios para obtener ef 
1 complemento a dos de un número. 



El nombre, el lazo y el campo de có- 
digo tienen ef mismo formato para todas 
las palabras y se agrupan en la zona de 
cabecera. 

El contenido de la zona de parámetros 
varía de uno a otro tipo de palabra. La 
forma de emplear los referidos paráme- 
tros depende del tipo de la palabra, el 
cual se especifica mediante el campo de 
código. 



Los «arrays» en FORTH 

La forma más simple de crear un nue- 
vo tipo de palabra consiste en hacer uso 
de CREATE. Y, desde luego, es posible 
construir un campo de parámetros es- 
pecíficos para ella. Su campo de código 
especificará que cuando esa nueva pa- 
labra se ejecute, sea depositada en la 
pila la dirección de comienzo de su cam- 
po de parámetros. De esta forma, el pro- 
gramador puede recoger tal dirección 
para emplear el campo de parámetros a 
plena voluntad. 

Para construir la cabecera se emplea 
la palabra CREATE. Suponga que se de- 
sea crear un array numérico que alma- 
cenará la duración en días de cada uno 
de los meses del año, 

CREATE MESES <CR> 

Para construir el campo de paráme- 
tros se dispone de la palabra auxiliar 
'V', cuyo cometido es extraer un núme- 
ro de la pila y guardarlo en el dicciona- 
rio, reservando para ello dos bytes adi- 
cionales que añade al diccionario. 

En esencia se trata de ir situando los 
elementos que formarán el ARRAY en 
la zona de parámetros de la palabra, 

A continuación se muestra la forma 
de introducir el ejemplo propuesto en el 
ordenador: 

31 ,28,31 r 3Ü r 31 r 3Ü ,31 r 31 ,3Ü r 31 r 30,31 <CR> 

31 r 28 ,31 ,30 r 31 ,30,31 ,31, 30 ,31, 

30,31 OK 



4, En su definición, las plabras inclu- 
yen información adicional (el campo de 
parámetros). 



Para leer un elemento se va a definir 
la palabra JV1ES. A la hora de emplearía 
hay que situar el número del elemento 
que se desea leer en la pila y, posterior- 
mente, invocar a la mencionada pala- 
bra: 
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.MES 

1- DUP+M ES ES 
+ 



Suponga que se desea leer el segun- 
do elemento; 

2 M ES <Cfi> 

La respuesta que se obtendrá será Ja 
siguiente: 



2 MES 28 OK 




j Para incorporar nuevas palabras al diccionario FORTH 
| puede utilizarse la palabra clave CREATE. 



Cadenas de caracteres 

Las cadenas de caracteres se almace- 
nan en casi todos los lenguajes como 
secuencias de códigos ASCII; en FORTH 
se utiliza el campo de parámetros de 
una palabra para almacenar los códigos 
que componen la cadena. Como los có- 
digos ASCII ocupan un solo byte cada 



uno H es necesario emplear la palabra 
"C," para tansferir el código de un ca- 
rácter al campo de parámetros de la pa- 
labra. J 'C/ f es la versión para un byte de 
deposita un número en el dicciona- 
rio, pero emplea para ello un byte. 

Por ejemplo, puede utilizarse la pala- 
bra ALLOT para reservar un número de 
bytes para el campo de parámetros. 

Para introducir una cadena en una pa- 
labra es posible emplear la siguiente 
palabra FORTH; 



; CADENA 
32 WORD DUP 1+ 
SWAPCOVER + SWAP 
DO 

|C C, 

LOOP 







Cll del carácter que ha de tomar como 
separador; en este caso se trata de un 
espacio en blanco, A continuación, 
WORD toma el contenido del buffer de 
entrada y lo coloca en el PAD, sitúa la 
longitud de la palabra al comienzo del 
PAD y la dirección del PAD en la pila. 

DUP Duplica el número situado en la 
cima de la pila que corresponde a la di- 
rección de comienzo del PAD, 

7 + Suma uno a la cima de la pila, 

SWAP Intercambia los dos valores de 
la cima de la pila, con lo cual el ele- 
mento más cercano a la cima de la pila 
es la dirección de comienzo del PAD, 
mientras que el segundo coincide con 
esta dirección incrementada en una uni- 
dad. 

C Lee el primer elemento del PAD (ya 
que esa es la dirección que se encuen- 
tra en la cima de la pila) que coincide 
con la longitud, 

OVER Copia el segundo elemento de la 
pila y lo deposita en ía cima de la mis- 
ma. 



Veamos con detalle cuál es la actua- 
ción de cada uno de los elementos que 
intervienen en la definición de ía nueva 
palabra CADENA: 

; Comienzo de la definición de la pala- 
bra 



CADENA Nombre identificador de la 
palabra. 

32 Sitúa en la pila e! valor 32, 

WORD Interpretará el valor 32 que se 
encuentra en la pila como el código AS- 



+ Suma los dos primeros elementos de 
la pila: la longitud de la cadena y la di- 
rección del comienzo del PAD, 

SWAP Intercambia los dos elementos 
más cercanos a la cima de la pifa, con 
lo que quedan preparados los índices 



CAMPO de CODIGO 



CAMPO de 
PARAMETROS 

I CAMPO de CODIGO 



CAMPO de 
PARAMETROS 




CABECERA 

LAZO 



imuwvui 




PALABRA 



LAZO 



imniniv 



DICCIONARIO 
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Cada uno de los componentes de una palabra FORTH tiene una 
misión específica ; su síntesis da cuerpo a la palabra en sí. 








ALLOT 



para el array (estos son la dirección fi- 
nal de la cadena en el PAD y la direc- 
ción de comienzo), 

A partir de aquí aparece un bucle que 
toma como inicio la dirección donde se 
encuentra el primer elemento del PAD 



La palabra ALLOT reserva un determinado espacio para 
el campo de parámetros de una palabra. 



PAD 



CAMPO DE 
PARAMETROS 



y como final e! último elemento del 
PAD; extrae uno a uno estos elementos 






11 




11 


y los transfiere al campo de parámetros 
de la palabra que se esté definiendo. 

Para definir una palabra, como por 
ejemplo ASURBANIPAL, basta con in- 
troducir la siguiente secuencia de pala- 






A 




A 






s 1 




S 


BUFFER de ENTRADA 


WORD 


U 




U 


bras: 


ASURBANIPAL | 






R 




R 


CREATE PALABARA CADENA ASURBANIPAL <CR> 


r 


B * 
A 


CADENA 


D 


La respuesta dei ordenador será la si- 




T 


D 

A ' 


guiente: 

CREATE PALABA CADENA ASURBANIPAL OK 




DIR. DEL 
PAD 




~Ñ~ 

| 


• 


~Ñ~ 

| 


Para leer esta cadena se puede em- 
plear la siguiente secuencia: 








~ 

A 




~ 

A 


PALABRA 11 TYPE <CR> 




PILA 


L 







PALABRA 1 1 TYPE ASURBANIPAL OK 

De la misma forma, también es posi- 
ble introducir un array de caracteres: 



Mediante la palabra WORD se transfiere el contenido del buffer de entrada al PAD. 
A su vez, por medio de la palabra CADENA el contenido del PAD 
pasa al campo de parámetros de una palabra. 



CREATE SEMANA CADENA LUNMARM1EJUEVIESAB 
D0M<CR> 



La respuesta ahora será la siguiente: 

CREATE SEMANA CADENA LUNMARMIEJUEVIESABDOM 
OK 



: INDICE 
1 -3 *SEMAI\IA + 
3 TYPE 



Al ejecutar: 

3 INDICE <CR> 

Se obtendría la siguiente respuesta: 
3 INDICE MIE OK 



Para visualizar un elemento de este 
array de caracteres, resulta convenien- 
te definir una nueva palabra que facilite 
e! trabajo: 



Esta forma de crear palabras presen- 
taron ciertos inconvenientes, Al utilizar 
la palabra tan sólo pasa a la pila la di- 



99 





CAMPO DE 
PARAMETROS 




ELEMENTOS DEL 
ARRAY 



A la hora de manipular un 
ARRAY es preciso considerar 
el campo de parámetros 
como dividido en una serie 
de bloques elementales, 
destinados a almacenar los 
elementos del ARRAY. 



reccíón de comienzo de su campo de pa- 
rámetros, con lo que resulta necesario 
conocer la longitud de la cadena o la 
longitud de cada uno de los elementos 
de la cadena, así como los índices. 

Otra palabra que permite definir tipos 
de palabras es DEFINIR, la cual se em- 
plea ademas asociada con la palabra 
DOES>. 

Mediante esta definición de tipo de 
palabras, se especifica en primer lugar 
cómo se creará esa palabra medíante 
las palabras emplazadas entre la cabe- 
cera y la palabra DOES>; e incluso se 
puede especificar la acción que se ha de 
realizar cuando una palabra de este tipo 
sea invocada. La palabra DOES>crea eí 
campo del código. 

DEFINIR CADENA 

ASCII J WORD DÜP1+SWAPC DPC, 

OVER + SWAP 
DO 

|C C, 

LOOP 

DOES 

DUO 1+SWAPC 




En FQRTH, el usuario cuenta con tas 
palabras IN y OUT como 
herramientas para faciliar la 
comunicación del ordenador con el 
exterior. 




La palabras SAVE y LOAD permiten 
respectivamente , grabar y cargar 
diccionarios en un medio de 
almacenamiento magnético . 



Por lo que respecta al campo de pa- 
rámetros, la nueva palabra actúa de la 
misma forma que la palabra CADENA 
anteriormente definida; sin embargo, en 
este caso, por efecto de la definición de 
un campo de código, al ser invocada la 
palabra cadena se situará en la pila de 
la propia longitud de la misma, además 
de su dirección de comienzo, 

A partir de esta forma de almacena- 
miento de las cadenas se pueden reali- 
zar una serie de operaciones con ellas: 
subdivisión, concatenación, etc. 



Manejo de memoria 

Las palabras que más directamente 
manejan la memoria son las siguientes: 
I y @ que permiten leer o modificar el 
valor de dos bytes de memoria, y Cl y 
C@ que permiten realizar esa misma 
operación con un solo byte. Además de 
estas, existen otras palabras FORTH ca- 
talogables en este apartado funcional: 

HERE Proporciona una dirección de 
memoria que corresponde a la primera 
posición libre tras el diccionario. Esta di- 
rección de memoria se deposíítará en ¡a 
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cima de ¡a pila a la disposición del ope- 
rador. 



HERE . <CR> 



HERE. 15397 ÜK 

CALL Ejecuta una rutina en código 
máquina situada en una dirección de 
memoria que se extrae de la pila. 

Para manejar las operaciones de En- 
trada/Salida existen dos instrucciones 
especializadas: 

OUT E nvía un dato a un acceso para 



comunicación externa cuya dirección ha 
de especificarse. 

IN Recoge un dato de un acceso cuya 
dirección se recoge en la pifa. 

Inserción de comentarios 

Al revisar un programa transcurrido 
algún tiempo a partir del momento en 



La palabra OUT manda un byte hacia 
el exterior o «pon» de comunicación. 



que fue confeccionado, ocurre con fre- 
cuencia que ef usuario ha olvidado por 
completo su estructura y contenido. 
Para evitar tal inconveniente es preciso 
incluir algunas notas dentro del progra- 
ma que, más tarde, permitirán recordar 
ciertos detalles importantes del mismo. 
AJ efecto, la nota u observación a incluir 
debe aparecer encerrada entre parénte- 
sis; por ejemplo: 



: PROGRAMA 
2127 + 

IESTE PROGRAMA SIMPLMENTE SUMA 2 Y 127 E IMPRI 
ME EL RESULTADO) 



Dentro de las definiciones de 
palabras 

Durante el proceso de definición de 
una palabra FORTH puede ser deseable 
pasar a modo intérprete para efectuar 
alguna operación. A la hora de efectuar 
estas operaciones hay que recurrir a 
sendas palabras FORTH coíncidentes 
con los símbolos de «corchete*. Veamos 
un ejemplo: 



: PRUEBA 
[2 BASE C! ] 
111 

[DECIMAL] 

7 + , 




12 12 AT <CR> 






El cometido de la palabra AT no es 

otro que posrcionar el cursor en un determinado punto de la pantalla. 




101 



La anterior definición de la palabra 
PRUEBA equivale, en definitiva, a la si- 
guiente: 

: PRUEBA 
7 7 + . 



Ya que 111 fue definido a través de 
un paso intermedio a binario. También 
es posible definir palabras que actuarán 
cual si se tratara realmente de una se- 
cuencia de instrucciones semejantes a 
las que se encierran entre las palabras 
FORTH [ ]. Las referidas palabras se de- 
finen según el método habitual y, a con- 
tinuación, ejecuta la palabra IMMEDIA- 
TE; 



: BASE 2 
2 BASE C! 

1MMEDIATE <CR> 



Otro ejemplo puede ser: 

: BASE 10 
DECIMAL 

I M M E D I ATE<C R> 

A partir de este momento se puede 
sustituir la definición realizada anterior- 
mente con la colaboración de las pala- 
bras [y] por las palabras que se acaban 
de definir. Veamos lo que sucedería con 
la anterior definición; 

: PRUEBA 
BASE2111 
BASE10 7 

En efecto, su funcionamiento coinci- 



dirá con el asociado a la primera defini- 
ción de las mismas. 

LITERAL Es una palabra que puede 
resultar útil especialmente cuando se 
trabaja con la palabra [ y ]. Permiten pa- 
sar un elemento de la pila a la defini- 
ción de una palabra. Veamos un ejem- 
plo: 

: PRU 

[2 2 + ] LITERAL 



12 + 



Al ejecutar esta palabra (PRU LCR>) 
se obtendrá el siguiente resultado: 

PRU 16 OK 

Mientras que si ordenamos un listado 
de la misma (con LIST PRU <CR>) el re- 
sultado en la pantalla será: 



Tabla de órdenes FORTH 


PALABRA 


DESCRIPCION 


TIPO 


D + 


Permite sumar dos números de doble precisión. 


Palabra aritmética 


DMEGATE 


Cambie el sigo de un número de doble precisión. 


Palabra aritmética. 


U* 


Multiplica dos números enteros sin signo y da como 
resultado un número de doble precisión. 


Palabra aritmética. 


D< 


Compara dos números de doble precisión y da como 
resultado un 1 ó un 0 según que uno sea mayor que 
otro. 


Palabra de 
comparación. 


U/MOD 


Divide dos números enteros sin signo, proporcionando 
el resto y el cociente. 


Palabra aritmética. 


<# 


Inicia el paso de dígitos al PAD. 


Manejo del PAD, 


#< 


Termina el paso de dígitos al PAD. 


Manejo del PAD. 


# 


Pasa un dígito al PAD. 


Manejo del PAD. 


#s 


Pasa todos los dígitos que queden al PAD. 


Manejo del PAD. 


HOLD 


Guarda un carácter ASCII en el PAD. 


Manejo del PAD. 


ASCII 


Deja en la pila el código ASCII del carácter siguiente. 


Manejo de caracteres. 


SIGIM 


Pasa al PAD el signo de un entero situado en la cima 
de la pila. 


Manejo del PAD. 


CREATE 


Crea una nueva palabra. 


Manejo del diccionario 


- 


Transfiere un elemento de ia pila al diccionario, 
reservando para él dos bytes en la zona de 
parámetros de la palabra. 


Manejo del diccionario. 


C, 


Transfiere un elemento de la pila al diccionario 
reservando para él un byte en la zona de parámetros 
de la palabra. 


Manejo del diccionario. 


ALLOT 


Reserva un espacio determinado en la zona de 
parámetros de una palabra. 


Manejo del diccionario! 


iDEFINER/D0ES> 


Define un tipo de palabra. 


Manejo del diccionario. 
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Tabla de órdenes FORTH 


PALABRA 


DESCRIPCION 


TIPO 


HERE 


Da la dirección del último byte libre tras el 
diccionario. 


Manejo de memoria. 


CALL 


Ejecuta una rutina en código máquina cuya dirección 
de comienzo ha de encontrarse previamente en la 
pila. 


Manejo de la memoria 


IN 


Recoge un byte de un acceso externo. 


Entrada/Salida. 


OUT 


Envía un byte hacia un acceso de comunicación. 


Entrada/Salida, 


i 


Pasa a modo intérprete. 


Palabra auxiliar. 


j 


Pasa a modo compilación. 


Palabra auxiliar. 


m MEDIATE 


Hace que la última palabra definida se ejecute dentro 
de cualquier definición como paso a modo intérprete. 


Palabra auxiliar. 


f 


Comienzo de un comentario. 


Inserción de 
comentarios. 


i 


Fin de un comentario. 


Inserción de 
comentarios. 


LITERAL 


Pasa a un valor de la pila a la definición de una 
palabra. 


Palabra auxiliar. 


SAVE 


Almacena un diccionario en un casete. 


Manejo de casete. 


LOAD 


Recoge un diccionario en un casete. 


Manejo de casete. 


VERIFY 


Comprueba que la grabación de un diccionario se ha 
efectuado correctamente. 


Manejo de casete. 


BSAVE 


Almacena un bloque de bytes en casete. 


Manejo de casete. 


BLOAD 


Recoge un bloque de bytes del casete. 


Manejo de casete. 


BVERIFY 


Comprueba que un bloque de bytes ha sido grabado 
correctamente. 


Manejo de casete. 


AI 


Posiciona el cursor en una posición determinada de la 
pantalla. 


Gráficos. 


PLOT 


Dibuja un pixe! en el punto y las coordenadas que se 
especifiquen. 


Gráficos. 


invis 


Hace que no se envíen a la pantalla los mensajes 
informativos. 


Gráficos. 


VIS 


Hace que vuelvan a aparecer los mensajes 
informativos. 


Gráficos. 


BEEP 


Emite un sonido de una frecuencia y duración 
especificada. 


Sonido. 



: PRU 
412 + 
;0K 



Manejo del casete 

SAVE Permite grabar un diccionario 
de palabras FGRTH en casete (se gra- 
ban tan sólo las palabras que el usua- 
rio ha ido definiendo). Su formato es: 

SAVE <nombre> 

LOAD Permite leer un diccionario de 
palabras almacenado en casete: 

LOAD <nombre> 

VERIFY Permite comprobar si un dic- 
cionario grabado en casete es igual que 
el que se encuentra en memoria. 

VERIFY <nombre> 

BLGAD Lee un bloque de bytes alma- 
cenados en casete. 

<comÍenzo> <longitud> BLOAD <nombre> 

El caso de desear que [a dirección de 
comienzo y la longitud sean ías mismas 
con las que se grabó, sin necesidad de 
especificar dichos parámetros, hay que 
utilizar la formulación siguiente: 

0 0 BLOAD <nombre> 

BSAVE Graba un bloque de bytes er 
casete. 

<comienzo> <Joogitud> BSAVE <nombre> 

BVERIFY Compara un bloque de 
almacenados en casete con e mismo 
bloque residente en memoria, 
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Por ejemplo, la ejecución de: 
1212 1 PL0T<CR> 




I B FORTH cuenta con un vocabulario 
específico para ¡a confección de 
gráficos , 




I También es posible en FORTH 

programar sonidos cuya duración y 
frecuencia son controlables. 



dará la siguiente respuesta en pantalla: 
12121PLQTOK 

además de imprimir un pixel en ta po- 
sición de coordenadas 12, 12. Los men- 
sajes que el ordenador visualiza consti- 
tuyen un inconveniente que es preciso 
evitar cuando se desea realizar un grá- 
fico en pantalla. Para obviar la aparición 
de estos mensajes existe una palabra 
FORTH al efecto: 

IIMVIS Hace que no aparezcan en la 
pantalla los mensajes habituales. 

También existe una palabra FORTH 
adecuada para ordenar que los mensa- 
jes vuelvan a aparecer en el momento 
oportuno; esta es: 

VIS Reaparecen en la pantalla los 
mensajes generados por la máquina. Es 
importante conocer el juego de caracte- 
res disponibles en el ordenador que se 
está utilizando. Al efecto, puede resul- 
tar muy conveniente ejecutar la siguien- 
te palabra FORTH que permite visuali- 
zar todo el repertorio de caracteres: 

CARACT 
256 0 
DO 

l EIVI1T 
LOOP 



El sonido 



El FORTH también brinda la posibili- 
dad de producir sonidos, a tal efecto 
existe la palabra BEEP. 



Gráficos en FORTH 

AT Permite posicionar el cursor en 
cualquier punto de la pantalla. Su for- 
mulación habitual es: 

X Y AT 

PLOT Imprime un pixel en un punto 
de la pantalla: 



X Y <modo> PLOT 

Son cuatro los posibles modos de im- 
presión: 

0:Color negro 
1 :Color blanco 
2:No impresión 
3:lnversión 



BEEP produce dos sonidos necesitan- 
do para ello que en la pila se encuen- 
tren dos valores. Estos son interpreta- 
dos como la duración en msg {el valor 
más cercano a la cima de la pila) y el 
tono deseado {el siguiente elemento lo- 
calizado en el pila). El sonido que se pro- 
duce será agudo cuanto más pequeño 
sea el número especificado para contro- 
lar el tono. 
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FORTRAN 



El precursor de los 
lenguajes de alto nivel 



i hay que buscar la 
semilla del árbol 
genealógico de los 
lenguajes de pro- 
gramación, cuyas 
extienden por un es- 
pacio de tiempo superior a los treinta 
años, hay que dirigirse en la dirección 
que señala FORTRAN. Este lenguaje re- 
cibe su nombre de la fusión de las ini- 
ciales de los vocables ingleses FORmu- 
la TRANsiation, que en términos latinos 



se puede aproximar por «traducción de 
fórmulas». 

El origen del nombre del FORTRAN da 
la clave para entender la rápida popula- 
rización de este lenguaje entre la comu- 
nidad científica de los años sesenta. Con 
anterioridad a su aparición, el personal 
investigador enfrascado en complicados 
cálculos tenía que recurrir a igualmen- 
te complicados mecanismos de progra- 
mación para presentar al ordenador, en 
una sintaxis reconocible para éste, las 
expresiones matemáticas que tenía que 
manipular. Con el advenimiento de 



FORTRAN este tipo de personas encon- 
traron un vehículo que, aunque en la ac- 
túa fldad ya ha sido superado por otros 
medios de representación, supuso un 
cambio radical en las relaciones con el 
ordenador. 



Un poco de historia 

FORTRAN es el fruto de la evolución 
natural de la historia de la informática. 
El lenguaje ensamblador, que con ante- 
rioridad a la aparición de FORTRAN era 
prácticamente el único medio de comu- 
nicación entre el hombre y el ordena- 
dor, se encontraba muy cercano a éste. 
Uno de los objetivos de FORTRAN fue el 
poner el medio de comunicación más 
cerca del elemento más importante, el 
programador, en un esfuerzo por trans- 
formar el arte de la programación en la 
ciencia de la programación. Por otra par- 
te, las características de FORTRAN es- 
tán muy fuertemente marcadas por la 
concepción, muy difundida en aquella 
época y hoy totalmente superada, de 
que los ordenadores eran fundamental- 
mente herramientas científicas cuya 
principal misión era la de realizar cál- 
culos científicos. Muy pronto, la apari- 
ción del Cobol hizo que esta suposición 
empezara a tambalearse, cayendo defi- 
nitivamente con lenguajes como Lisp o, 
más recientemente, Prolog. 

La idea de que algo parecido al FOR- 
TRAN era necesario ya estaba presente 




El primer manual de FORTRAN fue pubíicado por IBM en 1956, año en que 
comenzaron a redactarse numerosas versiones o dialectos, hasta ¡legar a nuestros 
día , en ios que el FORTRAN ya ha sido superado en muchos 
aspectos por otros lenguajes. 




frondosas ramas se 




El lenguaje FORTRAN está 
orientado especialmente a 
aplicaciones de tipo científico 
y técnico f desde la 
determinación de las órbitas 
de satélites espaciales hasta 
la definición de ¡a distancia 
existente entre átomos 
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Desde la raíz (FORTRAN) hasta la 
copa (ADA) han sido muchas fas 
ramas que le han ido creciendo a! 
árbol genealógico de los lenguajes 
informáticos . En la actualidad están 
empezando a florecer nuevas ramas, 
como la ocupada por el Prolog , que 
vaticinan un prometedor futuro i 



en el año 1949, cuando apareció el 
SHGRT-CODE creado por el Dr. IVIandy 
para Unlvac, Cuatro años más tarde (en 
1953), y con la misma idea, apareció el 
SPEED-CQDING de Backus en 1953, 
esta vez para IBM. 

Fue el propio Backus quien en el año 
1 954 comenzó el desarrollo del lengua- 
je FORTRAN, también en el seno de! gi- 
gante americano, viendo la luz el primer 
manual del lenguaje en el año 1956. En 
los años en los que se centra nuestra 
historia no estaba todavía desarrollada 
la llamada «Teoría Formal de Lengua- 
jes» (ver cuadro de texto al respecto) la 
cual constituye uno de los mejores 
ejemplos de la interacción de los cam- 
pos teóricos y prácticos de una ciencia. 
Con esta teoría, un reducido grupo de 
programadores pueden desarrollar un 
compilador libre de errores en un 99% 
de su código en unas pocas semanas, lo 



cual contrasta con los años y escasos 
resultados que consiguieron Backus y 
sus colaboradores en el desarrollo del 
primer compilador para este lenguaje. 

Con anterioridad al desarrollo de la ci- 
tada teoría, la construcción de un com- 
pilador era una tarea que seguía un pro- 
ceso inconcebible en una ciencia que 
tradícionalmente se considera como 
máxima exponente de la rigurosidad: El 
lanzamiento de la primera versión co- 
mercial estaba seguido por una avalan- 
cha de protestas de Jos usuarios que de- 
tectaba errores achacadles al compila- 
dor al desarrollar sus programas. El 
equipo de programadores de la empre- 
sa constructora aislaba la causa del fa- 
llo y, sí era posible, se daban instruccio- 
nes a la empresa que lo detectó para 
que «parcheara» el programa original de 
forma que se soslayara el error. Otras 
veces la solución no era tan sencilla. 



pues se requería un replanteamiento de 
buena parte del diseño del producto. 
Una vez que se habían acumulado un 
cierto número de «grandes errores» y 
que se habían mejorado algunos aspec- 
tos del lenguaje, llegaba el momento 
para et lanzamiento de una nueva ver- 
sión. 

De esta forma se llegó al año 1962 
con la cuarta versión del lenguaje, la 
cual recibía el evidente nombre de FOR- 
TRAN IV. A partir de aquí la Teoría For- 
mal de Lenguajes empezó a dar sus fru- 
tos y la experiencia ganada en el desa- 
rrollo de compiladores hicieron que se 
abandonara esta forma caótica de traba- 
jan 

En la actualidad es posible encontrar 
un buen número de compiladores de 
FORTRAN, los mas populares de los 
cuales son el FORTAN-77 y el FOR- 
TRAN-80, para ordenadores personales. 
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Como en las primeras versiones del len- 
guaje, son los programadores de aplica- 
ciones numéricas y científicas los prin- 
cipales usuarios de estos compiladores. 
Otras razones para que el FORTRAN 
pese a lo anticuado que resultan sus es- 
tructuras de control y sus primitivas o 
nulas estructuras de datos, siga siendo 
utilizado con profusión, son la existen- 
cia de un gran número de subrutinas ya 
desarrolladas y listas para ser utilizadas 
sin más conocimiento que su nombre, y 
la gran eficiencia en cuanto a velocidad 
de ejecución del código generado por un 
compilador de este lenguaje. Sobre este 
último punto, es bastante normal en- 
contrar aplicaciones que han sido desa- 
rrolladas en un lenguaje cuya estructu- 
ra se adecúa más a la aplicación con- 
creta y, una vez que se comprueba el 
buen funcionamiento de las mismas, re- 
programar las rutinas aritméticas en 
FORTRAN para dar una mayor velocidad 
al producto final. 

Como se podrá comprobar a lo largo 
de esta introducción al FORTRAN, son 
muchas las similitudes que se encuen- 
tran entre este lenguaje y el conocido 
BASIC. De hecho, el segundo nació 
como una revisión del primero y, con- 
trariamente a su uso mayoritarto en la 
actualidad, se comenzó a emplear como 
lenguaje científico en algunas universi- 
dades norteamericanas, acabando en lo 
que hoy todos conocemos. 



Estructura de un programa 

En realidad es difícil, si no imposible, 
hablar de la estructura de un programa 
FORTRAN de la misma forma en la que 



se habla de la estructura de un progra- 
ma C o en Pascal. Las ideas sobre es- 
tructuras de datos y modularización de 
programas que están omnipresentes en 
estos lenguajes no tienen reflejo en 
FORTRAN, por el simple hecho de que 
en los años sesenta este tipo de cues- 
tiones apenas si eran comentario de un 
grupo reducido de investigadores. 

La única estructura de datos avanza- 
da que se encuentra en FORTRAN es el 
«array» o matriz, y la modularización de 
los programas sólo puede realizarse a 
través de las FUNCTIONs y SUBROUTl- 
NEs, que serán comentadas posterior- 
mente, y que apenas son un pálido re- 
fleje de las funciones y procedimientos 
de Pascal. 

En FORTRAN no existe una zona de 
declaración de variables propiamente 
dicha, ya que algunas de ellas tienen un 
tipo implícito asociado en función de la 
primera letra del nombre (hablaremos 
más despacio de ello), aunque esta de- 



claración puede sustituirse por una ex- 
plícita realizada por el programador 
Tampoco existen la estructuración de ti- 
pos como ocurre en Pascal, Ada y Mo- 
dula-2, o en menor grado en C, ni es- 
tructuras de control avanzadas al estilo 
de las WHILE-DO o REPEAT-UNTIL. 

Como ya se ha comentado, para en- 
frentarse al FORTRAN hay que olvidar- 
se en cierta forma de los postulados ha- 
bitualmente encontrados en los lengua- 
jes de tipo estructurado y tener en la 
mente las estructuras características 
del lenguaje BASIC, mucho más acor- 
des con lo que se encuentra en el pro- 
tagonista de estos párrafos. 

Variables FORTRAN 

Una variable en FORTRAN es una ca- 
dena de uno a seis caracteres alfanu- 
méricos de los que el primero ha de ser 
obligatoriamente una letra. La dectara- 




PROGRAM X (( 
TYPE X : ARR/ 


IUTPUT); 
y 10 OFCHAR; 


FRC 

BEC 

FNr 


CtUUht Y; 
U!N 




BEGUIN 

END. 





Para los conocedores de los 
lenguajes de programación 
estructurados, la apa nenas 
de un programa FORTRAN 
¡es parecerá í cuando menos , 
caótica. 



107 




Al igual que en el PASCAL existe implícitamente el tipo Bochan en FORTRAN son consideradas 
enteras ciertas variables y reales las restantes, a no ser que se especifique lo contrario. 



ción de variables enteras y reales se 
puede hacer implícita o explícitamente, 
esta última a través de fas sentencias 
de «declaración explícita». Una variable 
que no ha sido declarada explícitamen- 
te seré considerada implícitamente en 
FORTRAN como entera siempre que co- 
mience por l,J,K,L,M o N, y real si tal va- 
riable comienza por una letra distinta de 
las anteriores (A...H u Q...Z). 

Los distintos tipos de variables que 
pueden aparecer en un programa FOR- 
TRAN son los siguientes: 

* ÍNTEGER 

Equivalentes a sus homónimos de 
Pascal. En un programa en el que no 
haya sentencias de declaración explíci- 
ta, variables como I, No NUMERO se- 
rán consideradas como enteras. Obsér- 
vese lo acertado de la norma de decla- 
ración implícita, según la cual las varia- 
bles habitualmente empleadas como 
subíndices en expresiones matemáticas 
(y que, por tanto, son números enteros) 



como I o N no necesitan de ninguna de- 
coración especial. 

* REAL 

Representan variables en punto o 
coma flotante. Variables como ENTERA 
o DISCRIMINANTE serán consideradas 
como reales siguiendo la norma de la 
declaración implícita, 

* DOUBLE PRECISION 

Son variables que, teóricamente, tie- 
nen el doble de precisión que las rea- 
les. Son equivalentes al tipo «double» 
del lenguaje C. Su declaración se reali- 
zará obligatoriamente a través de una 
sentencia de declaración explícita. 

Mientras que una variable del tipo 
REAL puede representarse indistinta- 
mente en notación de punto flotante o 
exponencial, las de DOUBLE PRECI- 
SION sólo admiten la notación exponen- 
cial, con la particularidad de que la le- 
tra E que precede al exponente es sus- 



tituida por !a D. Así, 2.198E+03 es una 
constante real (de simple precisión), 
mientras que 2.198D+03 es una cons- 
tante del tipo «do ubi e precisión». 

* LOGIC AL 

Son equivalentes al tipo Boolean de 
lenguajes como Pascal, Ada o Modu- 
la-2. En BASIC no existen variables con 
funciones similares. Sólo podrán tomar 
los valores TRUE. o .FALSE. ({Atención 
a los puntos!) y su declaración, como en 
el tipo anterior, ha de hacerse obligato- 
riamente por medio de una sentencia de 
declaración explícita. 

* COMPLEX 

La frecuente aparición de números 
complejos en los cálculos matemáticos 
y la orientación de FORTRAN hacia ta- 
reas científicas motivaron la aparición 
de este tipo de variables, cuya misión es 
la de soportar números complejos. Tan- 
to la parte real como la imaginaria se 
consideran números reales. Un ejemplo 
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Acfua/menfe expíen verdones de FOjRTHAA/ 

fcomo el FORTRAN- 7 7 o el FORTRAN-80) desarrolladas específicamente para 
ordenadores personales. 



de constante de este tipo podría ser 
(3. 5,4. 3) que representa el complejo de 
parte real 3.5 e imaginaria 4.3. 

Una sentencia de declaración explíci- 
ta tiene el siguiente aspecto: 

<tipo> <lista de varíables> 

donde tipo es una de las cinco palabras 
clave vistas más arriba. Ejemplos de de- 
claraciones explícitas podrían ser: 

INTEGER VALOR 
REAL II .ABC 
LOGICAL ESTADO, FIN 

Vemos que II ha sido declarada como 
REAL. Una declaración explícita como la 
que se ha hecho para esta variable rom- 
pe con la norma que implícitamente 
consideraría a II como variable entera 
por empezar por la letra I, Sin embargo 
dicha norma sigue siendo válida para 
otras variables que empiecen por tal le- 
tra. 

Este tipo de sentencias han de ir al 
principio del programa y se ha de veri- 
ficar que el mismo nombre de variable 
no aparezca en más de una sentencia 
de declaración. 

Siguiendo con ei tema de las declara- 
ciones explícitas, la sentencia IMPIICIT 
tiene por objeto declarar de un tipo de- 
terminado todas aquellas variables que 
empiecen por un carácter alfabético 
dado. Su misión es, por tanto, muy se- 
mejante a la de las sentencias DEFINI 
o DEFSTR de algunos dialectos del BA- 
SIC. Un ejemplo de deciaracíón implíci- 
ta puede ser: 

IMPLICIT DGUBLE PRECISION (A.D-X) 

lo que haré que todas las variables que 
empiecen por A o por D,E,...,V,W r X sean 
consideradas como de doble precisión. 

De igual manera podemos decir: 

IMPIICIT INTEGER JLN], REAL (A-H,0-Z) 

aunque ello no es necesario, ya que se 
trata precisamente de la declaración im- 
plícita de variables reales y enteras que 
por defecto asume el FORTRAN. 

La única estructura de datos avanza- 
da que ofrece el FORTRAN es el array, 
con la particularidad de que los índices 
de cualquier elemento referendario han 



de ser siempre mayores que cero. La de- 
claración de un array se hace normal- 
mente por medro de la sentencia DI- 
MENSION. Por ejemplo, las sentencias: 

DIMENSION MATRIZ (10,10) 

REAL MATRIZ 

declaran la matriz MATRIZ de 10*10 
elementos reales. También existe la po- 
sibilidad de prescindir de la palabra cla- 
ve DIMENSION, como en el siguiente 
ejemplo, por medio del cual se obtiene 
el mismo resultado que con (as dos lí- 
neas anteriores: 

REAL MATRIZ (10,10) 



Estructuras de control 

La tabla que acompaña al texto con- 
tiene un resumen de tales estructuras, 
las cuales serán tratadas con mayor de- 
talle a continuación. 

* GO TO incondicional Análogo al 
GOTO de Basic Su forma es: 

GÜTQn 



En FORTRAN no es necesario prece- 
der a cada línea del programa cor u- 
número como ocurre en el lenguaje BA- 
SIC. Sólo habrá que incluir los numeras 
de línea en aquellas sentencias que 
bien sea por ser el destino de un sa to 
o el final de un bucle, tienen que ser re- 
ferenciadas en alguna otra semen: : 

La «n» de la instrucción GO TG es u- 
número entero que correspondeos a uno 
de tales números de sentencia 

* GO TO calculado. Su forma es 
como sigue: 

G0T0(n1,n2 nk),¡ 

en donde Jas «n» son números ce sen- 
tencia y la «i» una variable entere - 
quiera con la condición de que se: 
miembro de un array. Cuando e ' - : ce 
programa llegue a este punto, se proej- 
ará el salto a la sentencia n; s .e e 
j. Si «i» es menor que 1 o ma, yr c_e 4 
la sentencia ejecutada será a c_e se 
encuentre justo a continuación 30 
TO. 

* GO TO asignado. Su fcr-.a: ór 
es: 

GOTO Un1,n2 nk) 





E] tipo y significado de las ni es análogo 
al caso anterior. La diferencia es que la 
variable «i» tomaré los valores de 
ni ,n2,..,,nken lugar de 1,2,.. .k. Además, 
el valor concreto que en cada momento 
deba tornar la variable «i» ha de ser asig- 
nado obligatoriamente a través de una 
sentencia especial, la ASS1GN, de esta 
forma: 

ASSIGN j TO i 

en donde «i» es la variable del GO TO y 
«j» una constante entera cuyo valor es 
el que ha de tomar dicha variable. 

* IF aritmético. Su aspecto es: 

IF[a)n1,n2 r n3 

donde «a» eauna expresión matemática 
no compleja y 01,02,03 son números de 
sentencia. La bifurcación se realizará 
hacía una de estas dependiendo de que 
el valor resultante de evaluar «a» sea 
negativo, nulo o positivo respectivamen- 
te. 



* IF lógico. Adopta la siguiente for- 
mulación: 

IF (a) b 

donde «a» es una expresión lógica cual- 
quiera y «b» una sentencia ejecutable (es 
decir, no de tipo declarativo como IM- 
PLICIT, DIMENSION, etc) excepto una 
DO u otra IF lógico. 

En la correspondiente tabla se resu- 
men los operadores que pueden formar 
parte de una expresión lógica cualquie- 
ra, Como es habitual en todos los len- 
guajes de programación, nos encontra- 
mos con las funciones booleanas habi- 
tuales, Un detalle de sintaxis muy im- 
portante, cuyo olvido trae como conse- 
cuencia un buen número de errores, es 
la presencia de los dos puntos que de- 
limitan cualquier operador lógico. 

* DO. La misión del DO de FORTRAN 
es análoga a la de la combinación 
FOR/NEXT del BASIC: construcción de 
bucles. Su forma toma el siguiente as- 
pecto general 



DO n Í=m1,m2,m3 

en donde «n» es el número de una sen- 
tencia ejecutable que aparecerá en el 
listado con posterioridad a la propia DO; 
puede ser cualquiera excepto otra DO, 
GO TO, IF, STOP o RETURN. «j» es una 
variable entera no perteneciente a un 
array y mi ,m2,m3 son constantes o va- 
riables enteras; en el caso de que se tra- 
te de variables, tampoco pueden perte- 
necer a un array. 

En operación, el rango de sentencias 
desde la propia DO hasta la «n* se eje- 
cuta para valores de «i» desde mi a m2, 
con incrementos de valor m3. Este últi- 
mo parámetro es opcional y su valor por 
defecto es uno. 

Si la ultima sentencia del bucle ha de 
ser una de las prohibidas, se soluciona 
la situación con haciendo que sea una 
sentencia «CONTINUE» la que marque el 
final del bucle. El único efecto de la sen- 
tencia CONTINUE es devolver el control 
a la cabeza del bucle para iniciar otra 
ecuación No es infrecuente el que to- 
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dos los bucles de un programa Fortran 
tengan como última sentencia una 
CONTINUE. 

* PAUSE. Al aparecer esta sentencia 
se detiene momentáneamente el pro- 
grama, dando opción al usuario a reini- 
cializarlo o detenerlo definitivamente. 

* STOP, Esta sentencia marca el fi- 
nal lógico de un programa. 

* END. Indica el final físico del pro- 
grama. 

En FORTRAN se hace una distinción 
clara entre final lógico y final físico de 
un programa. Los que hayan experimen- 
tado con el BASIC saben que la última 
sentencia que se ejecuta en un progra- 
ma no tiene por qué ser siempre preci- 
samente la última sentencia que apare- 
ce en el listado. Sentencias BASIC como 
«stop» o «end» pueden detener la ejecu- 
ción del programa en cualquier punto 
aunque queden todavía sentencias por 
ejecutar en el curso normal del mismo. 

La forma habitual de programar en 
FORTRAN consiste en disponer los sub- 
programas al final del código del progra- 
ma principal. En algún punto del progra- 
ma principal debe existir una sentencia 
STOP que marque el final de la ejecu- 
ción. La sentencia END es normalmen- 
te la última de cualquier programa, y se 



trata fundamentalmente de una indica- 
ción al compilador para que deje de tra- 
ducir código fuente. Su presencia es 
siempre obligatoria. 



La entrada/salida 

La entrada/salida es uno de los as- 
pectos más primitivos y tediosos del 



La teoría formal de lenguajes 

Los primeros compiladores para lenguajes de alto nivel 
constituían un buen ejemplo de labor puramente 
artesanal. Al no existir un fundamento teorice sobre la 
construcción de tales programas, su confección se 
basaba en recopilar las experiencias anteriores y en 
pruebas de ensayo y de error. 

Por las fechas en las que el FORTRAN IV vio la luz del 
día, una serle de lingüistas, fundamentalmente Noam 
Chomsky y Ferdinand de Saussure habían desarrollado 
unas teorías sobre el lenguaje natural que constituyeron, 
la «gramática estructuraba». Sus principales pilares 
son la división de Jas oraciones en estructura profunda y 



superficial, y la división de las mismas en sintagmas. 
Estos lingüistas, en colaboración con expertos en 
ordenadores, aplicaron los resultados de la gramática 
estructural isla al campo de los lenguajes de 
programación, sentando las bases de la Teoría formal de 
lenguajes 

La consideración de esta teoría a la hora de diseñar un 
nuevo lenguaje supone disponer de un compilador para 
el mismo en un tiempo record, frente a lo que se 
tardaría en el caso de no hacerlo así. 

La herramienta más sorprendente, fruto de la aplicación 
de esta teoría, es un programa llamado «compilador de 
compiladores»; el cual, a partir de una especificación de 
un lenguaje, es capaz de realizar gran parte del esfuerzo 
necesario para diseñar un compilador del mismo. 
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INTEGER FUNCTION FACT (*, X) 

INTEGER X 

FACT=1 

IF(X'I) 1,4,2 
t RETURN 1 

2 DO 3 1=2, X 

3 FACT=FACT*! 

4 RETURN 
END 



Ejemplo de llamada: 
l=FACT($10,5) 



PROGRAMA 1. Función FORTRAN 
para calcular el factorial de un 
número. 

FORTRAN Este descuido se debe en 
gran medida a la orientación del lengua- 
je hacia tareas científicas, en Jas que el 
volumen de cálculo es muy superior al 
de entrada/safida. Lo normal en un pro- 
grama escrito en FORTRAN es generar 
un número muy grande de operaciones 
matemáticas a partir de un conjunto re- 
ducido de datos o que r en el caso de que 
sean numerosos, se repiten según pa- 
trones bien definidos. Igual comentario 
se puede realizar sobre la salida, la cual 
está constituida por unos pocos valores 
o por un gran número de ellos pero pre- 
sentables según el mismo formato. 



La estructura general de una senten- 
cia de entrada/salida en FORTRAN 
toma el siguiente aspecto: 

<código de operacion> ¡enumero de fichero>,<formato>) 
<lista de var¡ables> 

El «código de operación» puede ser 
una de las palabras clave READ o WRI- 
TE, según se trate de una lectura o es- 
critura respectivamente, y la «lista de 
variables» son las variables cuyos con- 
tenidos se van a leer o escribir. El «nú- 
mero de fichero» especifica el dispositi- 
vo de E/S a utilizar: pantalla, teclado, 
impresora, lectora de tarjetas perfora- 
das {... en los viejos tiempos), etc. Este 
número depende de la configuración del 
ordenador utilizado, y varía de unos 
equipos a otros. En el campo <forma- 
to> se incluye un número entero que 
será ef de una sentencia FORMAT, en 
la cual se especifica la forma en la que 
se ha de realizar la entrada/salida, de 
forma muy parecida a como lo hace el 
string de formato de las sentencias 
«pnntf» o «scanf» del lenguaje C. Por 
ejemplo, el siguiente segmento de pro- 
grama: 

INTEGER ENTERO 
ENTERO -1 
REAL =3. 14 

WRITE (5,500) ENTERO, REAL 
500 FORMAT (15, F1 0.2) 

END 

hará que se escriban las variables EN- 
TERO y REAL a través del dispositivo 
que tiene asociado el número 5 {la pan- 
talla, por ejemplo), en el formato que se 



50BROUTINE FACK* X, XFACT) 
INTEGER X, XFACT 
XFACT=I 
tFCX-I) 1,4,2 

1 RETURN 1 

2 DO 3 1-2, X 

3 XFACT=XFACT*I 

4 RETURN 
END 



Ejemplo de llamada: 

CALL FACT ($10, VALOR, RESUL) 



PROGRAMA 2, Subruíma para et 
cálculo del factorial de un número. 

En eí ejemplo de llamada, «VALOR» y 
«RESUL» han sido declaradas 
previamente como variables enteras. 

especifica en la sentencia FORMAT 
cuyo número es el 500. El formato «15» 
reserva un campo de 5 posiciones que 
albergarán a un entero, mientras que el 
«F1Ü.2» reserva diez posiciones en total 
para escribir un número real en forma- 
to de punto flotante con dos de eflas de- 
dicadas a la parte decimal. El resultado 
de la ejecución de este programa sería 
por tanto: 

bbbb1bbbbb10.2b 

en donde los caracteres «b» significan 
espacios en bianco. 



Especificadores de campo y 
caracteres de control 

/ Salto efe línea. 

Wx Deja «x* espacios en blanco a partir cíe la posición en que estaba. 

Tx Coloca la cabeza en la posición «x». 

Ix Formato para campo entero de *x» posiciones, 

Fx.y Formato para campo real en pumo flotante de *x* posiciones, estando «y* de ellas reservadas a la parte 

decimal. 

Ex.y Formato para campo real en notación exponencial de «x» posiciones, estando «y» de ellas reservadas al 
exponente. 

Dx.y Como Ex .y a u nqu e para var iab I es de doble p reci s ¡ó n. 

Lx Especifica un campo de *x» posiciones para una variable lógica. 

Los caracteres que estén escritos entre comillas simples serán escritos directamente. 
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El mismo comentario que se hizo so- 
bre «scanf» en ei lenguaje C es aplica- 
ble a la sentencia READ: el formato de 
la misma actúa como un filtro de la en- 
trada que se está tecleando, admitiendo 
tan sólo los datos que estén de acuerdo 
con el mismo. 

En la sentencia FOR1V1AT, al igual que 
en el string de formato de C, se pueden 
incluir caracteres de control cuyo pro- 
pósito es el salto de líneas o páginas en 
el dispositivo escritor o realizar borrados 
de pantalla en el caso de que este se en- 
cuentre materializado en un terminal de 
video. La mayor parte de ellos aparecen 
en la correspondiente tabla junto con 
los principales especificadores de cam- 
po. 

La sentencia FORMAT, al igual que 
otras como JMPLICIT o DIMENSION, per- 
tenecen al conjunto de las «no ejecuta- 
bles», nombre que reciben por el hecho 
de que el compilador no genera código 
para ellas. 




| Las instrucciones del tipo DO para el control de bucles pueden anidarse , aunque 
I no deben interferir se. El cuadro muestra las estructuras válidas 
y erróneas de este tipo de instrucción. 
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Los subprogramas: FUNCTIONs y 
SUBROUTINEs 

La declaración de una FUNCTION se 
realiza de la siguiente forma: 

<tipo> FUNCTION nombre [a1,...,an] 

El concepto de FUNCTION en FORTRAN 
es idéntico ai que se encuentra en otros 
lenguajes de programación: se trata de 
conseguir un resultado a partir de unos 
parámetros. En FORTRAN el tipo de re- 
sultado devuelto está determinado por 
el nombre de la función según la regla 
de los tipos implícitos en el caso de que 
no aparezca «<tipo>». Si no ocurre asi, 
es esta partícula la que determina el 
tipo de valor resultado de operar con ios 
parámetros. 

Los parámetros «a» pueden ser varia- 
bles de cualquier tipo o bien asteriscos. 
En este último caso se habilita la posi- 
bilidad de que, cuando la función haya 
calculado el valor, devuelva el control a 
un sitio distinto de donde se realizó Ja 
llamada. 

El uso de funciones es análogo al 
caso de Pascal, esto es, incluyendo el 
nombre de la función con sus argumen- 
tos entre paréntesis en una expresión y 
respetando siempre la concordancia de 
los tipos de los operadores. 



Para marcar el final de la ejecución 
de una FUNCTION o SUBRQUTINE se in- 
troduce una sentencia «RETURN» o «RE- 
TURN n» en el lugar apropiado. Si se uti- 



liza la segunda forma, «n» debe ser a 
posición en la lista de argumentos de 
uno de ellos de tipo asterisco. Junto el 
texto aparece una función FORTRAN 



¿Qué es el cálculo 
numérico? 

Cuando las necesidades de cálculo sobrepasan la 
simple resolución de funciones conocidas como sumas, 
productos, cálculos trigonométricos, etc., y lo que 
interesa es resolver integrales, ecuaciones en derivadas 
parciales o sistemas de ecuaciones diferenciales, es 
preciso recurrir a técnicas de cálculo numérico. Estas, a 
base de sencillas operaciones elementales como las 




citadas en primer lugar, permiten resolver cálculos 
complejos. El precio a pagar será una cierta inexacttjú 
en el resultado, lo cual se veré compensado por la 
facilidad con que se llegará al mismo. 

Por ejemplo, si se desea calcular el árera encerrad 
bajo una curva, habría que resolver la integral 
correspondiente y calcular su valor entre las abscisas 
de interés. La alternativa que ofrece el calcule :e 
consiste en calcular el resultado a partir de sures :e 
áreas elementales, como se observa en la figj r a. La 
precisión del resultado dependerá de la «elementa dac= 
de dichas áreas. 
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" incondicional 
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SENTENCIAS 
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FORTRAN 


DO (CONTINUE) 
STOP 
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END 
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a.GE.b 
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Expr. con operador 


.NOT.a 






lógico 


a.OR.b 








. a.ANDb 





adecuada para calcular el factorial de 
un número. Como se observa, la pala- 
bra END marca el final físico de la su- 
brutina. Una llamada a la función así 
declarada puede tomar el siguiente as- 
pecto: 

l=FACT($10 r 5) 

Se comprueba que el asterisco de la 
declaración se corresponde en la llama- 
da con «$10», en donde 10 será el nú- 
mero de alguna sentencia ejecutable. 
En nuestro caso, si como consecuencia 
de ía ejecución del IF aritmético se Ne- 
ga a «RETURN 1», se retornará al punto 
de llamada y de ahí a la sentencia nú- 
mero 10. Si el final de la función lo mar- 
ca un sencillo RETURN, el control es de- 
vuelto de la forma habitual ya conocida 
en otros lenguajes como el BASIC. En 
cualquiera de los casos ía variable FACT 
tomará el valor 120. 

La segunda y última forma de realizar 
un subprograma es a través de una SUB- 
ROUTINE. Su declaración torna el si- 
guiente aspecto: 

SUBROUTINE nombre (sLan) 

donde «nombre» es el nombre de la su- 
brutina y a1,...,an los argumentos, los 
cuales son todos pasados por referen- 
cia, como ocurre con los parámetros 
VAR en Pascal Una llamada a subruti- 
na se realiza a través de la sentencia 
CALL como sigue: 



PALABRAS CLAVES DEL FORTRAN 


ASSIGN TO 


ENTRY 


REAL 


BACKSPACE 


EQUIVALEN CE 


RETURN 


BLOCK DATA 


EXTERNAL 


REWIND 


CALL 


FORMAT 


SAVE 


CHARACTER 


FUNCTION 


STOP 


GLOSE 


GOTO 


SUBROUTINE 


COMMON 


IFTHEN 


WRITE 


COMPLEX 


IMPLICIT 




CONTINUE 


INQUIRE 




DATA 


INTEGER 




DIMENSION 


INTRINSIC 




DO 


LOGICAL 




DOUBLE PRECISION 


OPEN 




ELSE 


PARAMETER 




ELSE IFTHEN 


PAUSE 




END 


PR1NT 




END IF 


PROGRAM 




ENDFILE 


READ 





CALL nombre 

Cabe destacar que el nombre de una 
subrutina sirve tan sólo como referen- 
cia a la misma y que, por tanto, no lleva 
asociado tipo alguno, ya que no alber- 
gará ningún valor. En la figura adjunta 
se ha resuelto el problema deí cálculo 
del factorial a través de una subrutina. 
Las mismas consideraciones ya realiza- 
das en las FUNCTIONs sobre los argu- 
mentos de tipo asterisco son aplicables 
aquí. 

Por último hay que mencionar la po- 
sibilidad de seleccionar el punto de una 
subrutina por el que se desea que co- 
mience su ejecuciónal ser invocada por 
medio de una instrucción ENTRY. Este 
mecanismo proporciona una mayor fle- 
xibilidad a las subrutinas, haciendo po- 
sible su utilización por personas con dis- 
tintos propósitos. 
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Lisp 



Creando programas 
inteligentes 




Los orígenes del lenguaje inventado por John McCarthy a pnnc Z'OS - - os años 
60 están relacionados con las investigaciones en torno a la represe-:*: on de 
funciones matemáticas. 



tsp puede ser con- 
siderado como el 
primer lenguaje 
de la Inteligencia 
Artificial. Históri- 
camente, el único antecesor del que te- 
nemos referencia es el IPL, desarrolla- 
do por Newell, Shaw y Simón en la uni- 
versidad de Carnegie-Mellon en los 
años 50, Lisp fue inventado por John 
McCarthy a principios de los 60, como 
un medio de representación de funcio- 
nes matemáticas, y su nombre viene del 
acrónímo formado por las letras inicia- 
les de «LISt Processing» (procesamiento 
de listas). 

La aparición de Lisp supuso un cam- 
bio radical en la concepción de lo que 
hasta ese momento era un lenguaje de 
programación. El Fortran y Cobol, los 
más populares por las fechas que inte- 
resan, ponían todo el énfasis en el tra- 
tamiento matemático de los datos. La 
unidad fundamental de cálculo era el 
número, y toda la estructura del lengua- 
je estaba orientada a ella, una orienta- 
ción mucho más marcada en el Fortran 
que en el Cobol. 

Es un hecho patente la dificultad de 
encontrar un comportamiento inteligen- 
te en un programa escrito en alguno de 
estos dos lenguajes. Por supuesto, al- 
guien puede pensar que multiplicar dos 
matrices de 1000*1000 elementos 
complejos en menos de cinco minutos 
requiere algún grado de inteligencia, 
pero para la mayoría de la gente esto no 
es así. La principal idea que se introdu- 
jo con Lisp era la «manipulación de sím- 
bolos», en la esperanza de que es pre- 



cisamente esta manipulación y no la 
manipulación de números la que debe 
proporcionar programas en los que sea 
posible vislumbrar un comportamiento 
inteligente que vaya más allá de reali- 
zar alocadamente miles de operaciones 
matemáticas por segundo. 

La sintaxis del lenguaje Lisp es extre- 
madamente sencilla, si bien alguien que 
lo conozca tan sólo de pasada pueda 
pensar que los miles de paréntesis que 
es posible encontrar en un programa de 
dimensiones normales echan al traste 
esta afirmación. En realidad, frente a 
otros lenguajes para los que son nece- 
sarias un buen montón de páginas des- 
cribiendo sus palabras clave o las suti- 
lezas de los signos de puntuación, la 



sintaxis de Lisp se reduce a los «átomos» 
y las «listas». 

Un átomo es una agrupación de le- 
tras, números o signos de puntuación 
como *-» ó «.». Cualquier palabra de un 
lenguaje natura puede por tanto, ser 
considerada en Lisp un átomo. Las lis- 
tas son agrupaciones de átomos, las 
cuales a su vez pueden combinarse para 
formar estructuras de mayor nivel (lis- 
tas de listas); es precisamente aquí don- 
de reside una de las mayores fuerzas del 
lenguaje. El trabajo fundamental de Lisp 
consiste en la manipulación de los áto- 
mos y de las stas. los cuales reciben 
conjuntamente el nombre de «expresio- 
nes simbólicas*. De esto último se pue- 
den sacar nuevas conclusiones para en- 





FORTRAN 



LISP 







--ente a lenguajes como 
z JOTRAN, en los que el 
e emento básico de cáloic 
o cómputo es el número 
en el lenguaje Lisp se hace 
especial hincapié en el 
^anejo de símbolos , s - ^ 
cabe la posibilidad de 
r ealizar potentes cálcr es 
matemáticos. 





En te Ítguíü estén representados los elementos fundamentales del lenguaje üsp . 
Como se puede comprobar , cualquier « cosa » que $e encuentre en un programa es 
una expresión simbólica, y como tal será tratada. 



tender mejor 3o que significa la «mani- 
pulación de símbolos». 



Primeras funciones 

Lisp es un lenguaje que se encuadra 
entre los denominados «funcionales», lo 
que pone de manifiesto la importancia 
que tiene el concepto de función mate- 
mática en el sentido de generar un re- 
sultado a partir de una serie de argu- 
mentos. 

Si a la vista del cursor de un intérpre- 
te de Lisp tecleamos la siguiente expre- 
sión: 

(PLUS 3.14 2.71) 

nos será devuelto deforma inmediata: 



5.85 

Obsérvese que la expresión original 
está encerrada entre paréntesis. Esto 
significa que se trata de una lista, la 
cual esta formada por tres elementos: 
«PLUS», «3.14» y «2.71». Normalmente, 
el Lisp siempre interpretará que el pri- 
mer elemento de una lista como la an- 
terior es el nombre de una función, la 
cual ha de ser aplicada a los siguientes 
elementos de la lista. En nuestro caso, 
se trata de la función PLUS que ha de 
ser aplicada sobre los argumentos 3.14 
y 2.71 . Como ya habrán adivinado, PLUS 
es la función que realiza las sumas, con 
lo que el resultado es el arriba mostra- 
do. La forma de actuar del intérprete de 
Lisp será siempre la misma, es decir, 
nada más teclear una expresión como 
la anterior intentará buscar una función 



cuyo nombre coincida con el primer ele- 
mento de la lista, y considerará al resto 
de la misma como los argumentos so- 
bre los que se aplica ía citada función. 

Un ejemplo más complicado puede 
ser el siguiente: 

(DIFFERENCE {TIMES 3 4) 8) 

Como en el ejemplo anterior, se le ha 
tecleado al intérprete una lista de tres 
elementos: «DIFFERENCE», «{TIMES 3 
4)» y «8». A diferencia con aquél, el se- 
gundo elemento es una lista en sí, el re- 
sultado de cuya evaluación será el pri- 
mero de los argumentos para la función 
«DIFFERENCE», siendo el segundo de 
ellos el «8». Para evaluar «(TIMES 3 4)» 
se sigue la regla general, es decir, se 
supone que el primer elemento —«TI- 
MES» — es el nombre de una función (la 
de multiplicar) que ha de ser aplicada 
sobre «3» y «4», dando como resultado 
«12». Después de esta primera evalua- 
ción, los argumentos de la función «DIF- 
FERENCE» son «12» y «8», escribiéndose 
por pantalla el correspondiente resulta- 
do: «4». 

Lisp posee un completo juego de fun- 
ciones matemáticas del estilo de las co- 
mentadas hasta ahora, si bien el nom- 
bre de las mismas varía entre imple- 
mentaciones concretas del lenguaje. 
Así, por ejemplo, no es difícil encontrar 
que DIFFERENCE se escribe simplemen- 
te con el signo «— »„ o ver PLUS susti- 
tuido por *+».. Otras funciones matemá- 
ticas son las encargadas de calcular co- 
cientes enteros, resto de divisiones, raí- 
ces cuadradas, funciones trascenden- 
tes, cafcular el máximo o mínimo de en- 
tre los argumentos, etc., tomando como 
parámetros tanto cantidades enteras 
como reales. 



Manipulando símbolos 

Lo que hasta ahora se ha comentado 
de Lisp apenas difiere substancialmen- 
te de lo que se encuentra en otros len- 
guajes convencionales. En concreto, la 
notación empleada es muy parecida a !a 
del Forth. La fuerza def Lisp se centra 
en que puede manipular con igual agi- 
lidad cadenas de caracteres, lo que en 
el argot del lenguaje se denominan 
«símbolos». 
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Ejemplos de símbolos pueden ser 
GRAN, INFORMATICA o DE, Lo más in- 
teresante de los símbolos es agruparlos 
para formar listas. Así/ 

(GRAN ENCICLOPEDIA DE LA INFORMATICA) 

es una lista formada por cinco símbolos. 
Las operaciones efementales que Lisp 
proporciona para el manejo de listas se 
centran en la división de ías mismas 
para obtener el primer elemento de 
ellas u obtener la lista original excepto 
ei primer elemento. La función CAR de- 
vuelve el primer elemento de una lista, 
por lo que la expresión: 

(CAR '(GRAN ENCICLOPEDIA DE LA INFORMATICA)) 

devolverá GRAN, Análogamente, la fun- 
ción encargada de devolver la lista ori- 
ginal a excepción del primer elemento 
se denomina CDR; la expresión: 

(CDR '(GRAN ENCICLOPEDIA DE LA INFORMATICA)) 

devolverá {ENCICLOPEDIA DE LA IN- 
FORMATICA). 

Con estos dos ejemplos se ha contem- 
plado la aparición en escena de un nue- 
vo elemento, la comilla simple(«'»). Lo 
primero que hará el intérprete de Lisp 
con una expresión que contenga comi- 
llas simples, será reemplazarlas por el 
átomo QUOTE. De esta forma, los dos 
ejemplos anteriores quedarían así: 

(CAR (QUOTE (GRAN ENCICLOPEDIA DE LA INFORMATI- 
CA))) y 

(CDR (QUOTE [GRAN ENCICLOPEDIA DE LA INFORMATI- 
CA))), 



(DEFÜIt FllOtilCC! (1) 




(CID «ZEROP D i) 




(OWL » 1) i) 




(I (PLUS (F1UUCCI OíFFEI 


lEtICE i 15) 


(FIISUUCCI OIFFEI 


HEROE S !)))))) 




I EI Lisp es un lenguaje al que tradiaonalmente se le ha achacado una gran 
dificultad por io retorcido de su sintaxis. Si bien esto es hasta cieno punto 
verdadero , también el propio programador puede poner algo de su parte para 
aliviar situaciones como la que se representa en la parte inferior. 



Analicemos más detenidamente cómo 
se evalúa la primera de las expresiones. 
Una vez que el intérprete de Lisp ha tra- 
ducido las comillas simples por GUG- 
TEs, aparece una lista formada por dos 
elementos, CAR y (QUOTE {GRAN ENCI- 
CLOPEDIA DE LA INFORMATICA)), CAR 
espera como argumento una lista, la 
cual ha de ser el resultado de evaluar 
el segundo argumento. Al evaluar el se- 
gundo argumento, se encuentra de nue- 
vo con una lista de dos elementos. 



QUOTE y {GRAN ENCICLOPEDIA DE LA 
INFORMATICA). Al evaluarla aparece 
QUOTE, que es una función que simple- 
mente devuelve su argumento sin tocar- 
lo para nada. Por lo tanto, el resultado 
de evaluar 

iQUQTE (GRAN ENCICLOPEDIA DE LA INFORMATICA)) 

es sencillamente 

(GRAN ENCICLOPEDIA DE LA INFORMATICA) 




I Un símbolo en Lisp es cualquier sucesión de caracteres —tanto letras como números— entre los que pueden existir algunos 
signos de puntuación (puntos y guiones fundamenta mente) cuya misión es me, orar lu legibilidad en el caso de que el nombre 
resultante sea excesivamente largo. 
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( DEFUN DE - FAHR - A - CELSIUS (TEME) 
ÍQUOTENT ( DiFFERENCE TEMP 32 ) 1.8 ) ) 



En el texto se comenta 
el desarrollo de una 
funaón Usp sencilla, 
cuya misión es la 
conversión de 
temperaturas entre dos 
escalas de medida 



que es precisamente la lista que se le 
presenta al CAR dando el resultado es- 
perado. 

Pensemos en lo que habría pasado en 
el caso de haber olvidado la comilla de 
la expresión original. Su aspecto sería 
como sigue: 

(CAR (GRAN ENCICLOPEDIA DE LA INFORMATICA)! 

En este caso, la frenética búsqueda 



que lleva a cabo el intérprete de Lisp 
en pos de expresiones que evaluar, le 
habría llevado a evaluar (GRAN ENCI- 
CLOPEDIA DE LA INFORMATICA), de 
forma que ef resultado de tal evaluación 
sería la lista con la que alimentar 
al CAR. Como consecuencia de ello, 
supondría la existencia de una función 
GRAN que al aplicarla sobre el resto 
de los símbolos daría la buscada lista. 
De inmediato surgiría un error avisan- 



do de la inexistencia de dicha función. 

Lo frecuentemente que se presenta la 
necesidad de evitar la evaluación de ex- 
presiones simbólicas por medio del 
QUOTE fue la razón que introdujo la 
conveniencia de sustituir esta formula- 
ción por la basada en la comilla simple. 
Hay que recordar que lo primero que 
hará el intérprete de Lisp es convertir to- 
das las ocurrencias de la citada comilla 
en GUOTEs, ya que de otra manera se 
pierde el significado de la expresión ori- 
ginal 

Una vez vistas las funciones que se 
dedican a romper listas, el paso habitual 
es aprender a construirlas. A tal efecto 
existen tres funciones básicas en Usp 
que son las APPEND, LIST y CONS. La 
primera de ella junta los elementos de 
todas las listas dadas como argumentos 
en una sola lista. LIST construye una 
lista cuyos elementos son cada una de 
las listas proporcionadas como argu- 
mentos. CONS devuelve una nueva lis- 
ta cuyo primer elemento es el primer ar- 
gumento y el resto el segundo de ellos. 
Los siguientes ejemplos ponen de ma- 
nifiesto la diferencia entre fas tres: 

(APPEND '(A B) '(C DI) (A B C D) 

(LIST '(A B¡ r (C DJ) ((AB)ICD)) 

(CONSTA ene 0)J f{AB)CD| 

Ef repertorio de manejo de listas se 
completa con LENGTH, ía cual devuel- 
ve la longitud de una lista, REVERSE, 
que devuelve una nueva lista con sus 
elementos al revés, SUBST, cuya misión 
es realizar la sustitución de un elemen- 



tas funaones del intérprete Usp se reducen a tres tareas fundamentales: leer una 
expresión simbólica por el teclado, proceder a su evaluación y escribir el resultado 
fruto de la citada evaluación. 
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to concreto en una lista por otro y LAST, 
que devuelve el último elemento de una 
lista. Los siguientes ejemplos aclaran 
algo más su utilización: 



(LENGTH ‘(A B C|) > 3 

(REVERSE '(A B C» >• (C 8 A) 

(SUBST ‘A 'B '(A B C» > (A A C) 

(LAST '(A B C)| » |C) 



Variables globales 

Hasta ahora todos los argumentos 
que se han pasado a las funciones vis- 
tas son los valores en sí, pero también 



es posible pasar como argumentos va- 
riables cuyos valores hayan sido previa- 
mente asignados. Con el fin de crear va- 
riables globales y asignarles valores 
existen fundamentalmente dos funcio- 
nes en Lísp, aunque en la práctica es 
sólo una de ellas la utilizada. 

La función SET asigna un valor a un 
átomo simbólico. Por ejemplo: 

[SET 'UNA-LISTA '(X Y Z)j 

crea la variable global de nombre «UNA- 
LISTA» y le asigna el valor (X Y Z). La ob- 
cecación de Lisp en devolver siempre un 
valor como resultado de la evaluación 



de una expresión simbólica, hará que f 
en el caso precedente, se obtenga como 
resultado (X Y Z), aunque este efecto sea 
despreciado la mayoría de las veces, 
quedando sólo en la mente el hecho de 
que se dispone de una variable con un 
cierto valor. A partir de este momento 
puede ser utilizada con todas las funcio- 
nes ya vistas. Por ejemplo, ÍCDR UMA- 
LISTA) devolverá (Y Z). 

La otra función que, con iguales fines, 
se utiliza en Lisp es la SETQ. El mismo 
resultado anterior se obtendría hacien- 
do: 

¡SETQ UNA-USTA (X Y Z)j 





El verbo «evaluar* es una constante en cualquier descripción del lenguaje üsp. Un intérprete para este lenguaje puede ser 
concebido como un «evaluador glotón de expresiones simbólicas » que produce resultados al introducirle las atadas expresiones , 
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CUALQUIER T 

VALOR 




Ó NIL 



En Lisp se hace distinción entre «funciones» y « predicados ». Las primeras pueden devolver cualquier expresión simbólica, 
mientras que ¡os posibles resultados fruto de la evaluación de los segundos se reducen a los átomos T o NIL 



Obsérvese que se ha suprimido la co- 
milla simple que precede al átomo UNA- 
LfSTA. Esto se debe a que SET realiza 
una primera evaluación dei primer ar- 
gumento, cosa que no hace SETO. SET 
es mucho más popular que SETO entre 
los’ programadores de Lisp. Además es 
posible crear y asignar distintos valores 
a distintas variables en una sola expre- 
sión, según se muestra a continuación: 

(SETO UNO 1 DOS 2 TRES 3) 

Esta expresión crea y asigna valores 
a tres átomos, devolviendo como efecto 
secundario el valor 3, resultado de la úl- 
tima asignación. 

Independientemente de que se use 
una u otra función, en el caso de que el 
átomo af que se le asigna un valor ya 
exista, sólo será éste el que resulte mo- 
dificado. 

Funciones creadas por el 
programador 

Todas las funciones comentadas has- 
ta el momento vienen programadas di- 



rectamente en el intérprete de Lisp def 
que dispongamos. La potencia del Lisp 
viene determinada en gran medida por 
la posibilidad de construir nuevas fun- 
ciones a partir de las ya existentes. Las 
expresiones simbólicas cuya misión sea 
el definir nuevas funciones han de co- 
menzar necesariamente por el átomo 
DEFÜN, y su estructura general es como 
sigue: 

(DEFÜN <nombre de la funcíón> 

(<param. 1> <param. 2> ... <paraiu n>| 
descripción del proceso>) 

DEFUN no evalúa ninguno de los ele- 
mentos que siguen en la lista; simple- 
mente constituye una llamada de aten- 
ción al intérprete para que tome nota de 
una nueva situación y guarde su defini- 
ción en el sitio oportuno. Como siempre, 
la evaluación por parte del intérprete de 
una expresión simbólica que comienza 
por DEFUN dará como resultado un va- 
lor, que en este caso será el nombre de 
la función, aunque esto carece práctica- 
mente de cualquier importancia. La lis- 
ta que sigue al citado nombre son los 
parámetros a partir de los cuales se ela- 



borará un resultado. Físicamente se tra- 
ta de una lista de símbolos que pueden 
aparecer en la parte de descripción del 
proceso. 

Como primer ejemplo de definición de 
funciones, consideremos la siguiente 
expresión simbólica que define una fun- 
ción cuyo propósito es pasar una tem- 
peratura en grados Fahrenheit a grados 
Celsius: 

(DEFUN DE-FAHR A-CELSIUS (TEMP) 

(QUOTIENT (DIFFERENCE TEMP 32) 1 .8) 

) 

Con ella se define la función de nombre 
«DE-FAFTR -A-CELSIUS» que tomará un 
argumento, el cual recibe localmente el 
nombre de «TEMP^ El resultado de eva- 
luar la expresión simbólica (QUOTIENT 
(DIFFERENCE TEMP 32) 1.8), cuya tra- 
ducción a términos matemáticos más 
simples es: 

TEMP - 32 



1.8 

será el que tome la función. 
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Lisp es un lenguaje de programación 
de los denominados «de formato libre», 
lo cual quiere decir que es posible es- 
cribir un programa de manera que el 
texto realce lo más posible el propósito 
de! mismo, de forma parecida a como se 
utiliza la indentación en lenguajes como 
Ada o C. Por esta razón, se ha colocado 
el último paréntesis de la expresión que 
define a la nueva función en una línea 
aparte justo debajo del que la inicia. En 
un programa Lisp, el número de parén- 
tesis que se abren y se cierran puede 
crecer hasta límites que sobrepasan la 
capacidad para saber cuál se correspon- 
de a cuál, por lo que es muy interesan- 
te el ser lo más rigurosos posibles en 
las normas de indentación que son uti- 
lizadas habítualmente. 

A partir de este momento se puede 
utilizar Ja nueva función para obtener 
las conversiones deseadas. Por ejemplo, 
el resultado de evaluar (DE-FAHR-A- 
CELSIUS 104) será 40. 

En la parte señalada en la forma ge- 
neral de una DEFUN como «descripción 
del proceso» pueden incluirse tantas ex- 




■ Al producirse la evaluación del átomo QUOTE , el intérprete toma sus argumentos 
y i os devuelve sin efectuar ningún procesamiento ulterior sobre ellos 



presiones simbólicas como sean nece- 
sarias para conseguir el resultado de- 
seado. A título de ejemplo, la definición 
vista de DE-FAHR-A-CELSIUS puede 
sustituirse por esta otra, en la que la ci- 



tada parte está formada por dos expre- 
siones simbólicas: 

(DEFUN DE-FAHR-A-CELSIUS (TEMP) 

(SETO TEMP (DIFFERENCE TEMP 32)) Sus- 
tracción 




(FUNCALL FUNCION PARAMETRO (S) ) 



I La función FUNCALL permite utilizar distintas funciones sobre los mismos datos de 
entrada. Para ello realiza una evaluación de su primer argumento . cuyo resultado 
será la función concreta que hay que aplicar. 



(QUOTIENT TEMP 1.8) ¡División 



Este nuevo ejemplo ha servido para 
introducir la forma en la que se comen- 
tan los programas en Lisp. Cualquier 
cosa que aparezca en una línea de pro- 
grama a continuación del signo de pun- 
to y coma será ignorada por el intérpre- 
te y su propósito será el explicar los pa- 
sos que se llevan a cabo. No hay que in- 
sistir en la importancia de comentar co- 
rrectamente los programas escritos en 
este lenguaje o en cualquier otro, pero 
el hecho de la documentación tiene es- 
pecial importancia en un lenguaje como 
Lisp en el que los programas son nor- 
malmente difíciles de interpretar. 



Predicados 

Los predicados son un tipo particular 
de funciones que se caracterizan porque 
sólo son capaces de devolver los átomos 
T (True, verdadero) o NIL (falso). Un 
ejemplo de predicado lo constituye 
ATGM, que devuelve T si su argumento 
es un átomo o NIL en caso contrario. Así, 
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I tas arquitecturas convencionales de ordenadores no ofrecen las características 
necesarias para fa ejecución eficiente de programas en Lisp i Por tal razón, en el 
año 1974 se iniciaron diversos programas de investigación encaminados a fa 
construcción de una «máquina Lisp», lo que en la actualidad permite elegir entre 
media ^ docena aproxima damen te de modelos cuyas características están orientadas 
a la ejecución de programas en este lenguaje , y al desarrollo de sistemas 
inteligentes en general. 



(ATO M 'UN -ATOMO) devolverá T, mien- 
tras que {ATOM "(A B C D)) devolverá 
NIL. 

Otros predicados que normalmente se 
encuentran en todas las ímplementacio- 
nes del lenguaje son: 



* EQUAL, que toma dos argumentos 
y devuelve T si son iguales. Por ejem- 
plo, (EQUAL 'ATOMO 'ATOMO) devuel- 
ve T. 

* NULL comprueba si su argumento 
es la lista vacía. {NULL '()} devolverá por 



tanto T, mientras que (NULLT) devolve- 
rá NIL 

* MEMBER se utiliza para comprobar 
si una determinada expresión simbólica 
es miembro de otra. En el caso de que 
así sea, devolverá el fragmento de la se- 
gunda a partir de la aparición del ele- 
mento buscado; si no devolverá NIL. Por 
ejemplo, tras haber hecho: 

{SETQ DIGITOS '(UNO DOS TRES CUATRO CINCO)] 

la evaluación de {MEMBER TRES DIGI- 
TOS) devolverá: 

(TRES CUATRO CINCO) 

Esta forma de actuar del predicado 
MEMBER es reflejo de una norma gene- 
ral en Lisp: «Cualquier cosa distinta de 
NIL es T». Cuando MEMBER devuelve 
como resultado una lista como la mos- 
trada en el ejemplo, se supone implíci- 
tamente que el resultado es cierto con 
la ventaja de que se ha generado un re- 
sultado sobre el que pueden trabajar 
otras funciones. 

* NUMBERP determina si un átomo 
es numérico o no. Tras haber hecho 
[SETQ UNO 1 ), la evaluación de {NUM- 
BERP UNO) dará T, mientras que (NUIVt- 
BERP 'UNO) dará como resultado NIL. 

* GREATERP y LESSP actúan sobre 
dos átomos numéricos dando T en e! 
caso de que el primer argumento sea 
mayor o menor que el primero respec- 
tivamente. 

* ZEROP y MINUSP toman un solo ar- 





la 

implementación 
más famosa del 
lenguaje Lisp en 
máquinas que 
utilizan el 
sistema CP/M, 
como el 
Rainbow 100 
de Digital 
mostrado en la 
figura, es la 
denominada 
mu~Lisp, 
aunque su 
sintaxis e 
idiosincracias 
dejan bastante 
que desear. 
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gumento numérico y devuelven T si, res- 
pectivamente, es nulo o negativo. 

En Lisp están definidas las funciones 
booleanas básicas AND, OR y NOT, con 
un comportamiento idéntico al ya en- 
contrado en otros lenguajes. Así, por 
ejemplo, AND devolverá T sólo cuando 
la evaluación de sus argumentos dé 
como resultado no N1L en todos ellos. 

La función que más uso hace de los 
predicados es COND, además de ser una 
de las más fácilmente encontradles en 
los programas Lisp. La función COND 
está seguida por una serie de listas cada 
una de las cuales contiene un test y algo 
para evaluar y devolver un valor en el 
caso de que el resultado del test sea no 
NIL, Su sintaxis general toma el siguien- 
te aspecto: 

(COND (<test 1> ... <resultado 1» 

(<test 2> ... Oes altado 2>| 

(<test n> ... <resultado n> 

1 

Cada una de las listas individuales re- 
cibe el nombre de cláusula. La ejecu- 
ción de un COND trae como consecuen- 



cia la evaluación consecutiva de ¡os pri- 
meros elementos de cada una de ellas 
hasta que se Mega a uno cuyo valor es 
no NIL. En ese momento, el resto de la 
cláusula se evalúa y el resultado de- 
vuelto como ejecución del COND es el 
que produce la última de las evaluacio- 
nes de la citada cláusula, ignorándose 
el resto de las mismas. Si no se encuen- 
tra ninguna cláusula para la que el pri- 
mer elemento evalúe a no NIL, se de- 
vuelve NIL. 

la utilización de expresiones simbóli- 
cas con COND en el seno de DEFUNs 
proporcionan a éstas una flexibilidad 
que hasta ahora desposeían. Suponga- 
mos que queremos escribir una función 
que añade un nuevo elemento a una lis- 
ta si no pertenece a ella. En el caso de 
que ya pertenezca, el valor devuelto 
será la lista sin modificar. He aquí una 
posible solución al problema: 

¡DEFUN AUMENTAR [NU EVO -ELE MENTO LISTA) 

(COND ((MEMBER NUEVO-ELEMENTO LISTA) LIS- 
TA) 

(T (CONS NU EVO -ELE ME NTO LISTA)) 

) 

) 



En este caso, el COND está formen 
por dos cláusulas- En la primera de e - 
el test es (MEMBER NUEVG-ELEMEV 
TO LISTA). Cuando NUEVO-ELEMEL L 
pertenece a lista, el resultado ce 
evaluación será una lista cuyo c n 
elemento es NUEVO-ELEMENTO n n- 
sultado distinto de NIL por lo tanto, m 
hará que se devuelva la evaluacic^ ee 
segundo elemento de la cláusula a 
LISTA original. En el caso de que es:: 
no ocurra al ser ef resultado de la e.e- 
lu ación de «member» NIL, se intenta -a 
ejecutar la segunda de las cláusL as ae 
COND- Aquí nos encontramos ccr 
el primer elemento de la lista es' a 
evaluación da T y, al ser distinto ce “ : 
NIL, se devolverá el resultado de a e.a- 
luación del CONS. 



Colocar un T como primer err:: 
en la última cláusula de una CCM as 
una práctica habitual en Lisp. Le e“.e 
forma se asegura que el resultado ze 
COND nunca será NILcomo corsé: _e _ 
cía de no haber encontrado c -c-^a 
cláusula cuyo primer elemente e.a _a- 
ra a no NIL. 



Los dialectos del Lisp 

Como la gran mayoría de los le agua jes que aparecieron 
en el mismo momento histórico que el Lisp, la primeras 
implementaciones de este lenguaje se realizaron 
también sobre los grandes ordenadores de la época. 

Toda la estructura del Lisp gira en torno al concepto de 
lista, y es precisamente ¡o difícil e ineficiente que 
resulta en los ordenadores con arquitecturas 
convencionales como los citados «man i trames» o los 
actuales ordenadores personales cuya arquitectura 
estuviera de acuerdo con los principios del lenguaje, 
aumentando de esta forma las prestaciones de las 
aplicaciones desarrolladas con é!. 

El «Lisp machine project», cuyo objetivo era la creación 
de una «estación de trabajo» con las características 
descritas, se inició en e! MIT en el año 1974, y dio como 
fruto dos máquinas una en el año 1976 y otra de 
características más avanzadas en el 1978, El grupo que 
se encargó del desarrollo de estos dos prototipos vio un 
mercado muy interesante en la comercialización de este 
tipo de ordenadores, por lo que en el año 1980 al citado 
grupo inicial se desgajó en dos compañías que en la 
actualidad poseen un sector bastante amplio del 
mercado, la Symbolics Inc, en Massachusetts y la Lisp 
Machine Inc., con oficinas también en Los Angeles. 

De forma prácticamente paralela, investigadores del 



■sPARC», siglas de -Palo Alto Research Canter» de la 
compañía Xerox comenzaron a implementar el lenguaje 
Lisp sobre lo que es considerado por muchos el primer 
ordenador personal de la historia, el «Alto», aunque su 
éxito comercial fue nulo. 

Como consecuencia de estos esfuerzos conjuntos 
aparecieron fundamentalmente dos dialectos del 
lenguaje, el «MacLisp* en torno al MIT y el «InterLisp» 
en los laboratorios de Xerox, En la actualidad, y dada la 



importancia que está adquiriendo el Lisp t 

de la Inteligencia Artificial y en un esfuerzo dc' 
contrarrestar el empuje del Prolog, el Depsre^rr 
Defensa Norteamericano ha promovido ¡a ¿res: :r 
«CommonLisp», en un intento por crear u^ ess-cr 
sólido, capaz de recoger lo mejor de cade _r: :: 

dialectos existentes, preparando el camiro sara s 
desarrollo de aplicaciones bajo su patroc^: =r ~ss 
de Inteligencia Artificial. 
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En el ámbito de los ordenadores nacidos bajo la estrella IBM, la implementación de 
iisp más famosa es la que recibe el nombre de « Golden Commonüsp». 



FUIMCALL; Funciones como 
parámetros 

Existen problemas en los que intere- 
sa aplicar distintas funciones a los da- 
tos de entrada en función de los diver- 
sos resultados que se desee obtener. Tal 
es el caso de las cuentas de los bancos, 
en los que dependiendo del cliente de 
que se trate se aplican distintos tipos 
(funciones) de interés de capital. 

Según esto, se podrían tener dos fun- 
ciones de Interés: 

(DEFUN INTERES-I (BALANCE) 

(TIMES BALANCE TIPO- DE-INTER ES) 

) 

(DEFUN INTER ES '2 (BALANCE) 



(PLUS [TIMES BALANCE TIPO-DE -ÍNTER ES) EX- 
TRAS) 

) 

En las que las variables TIPO-DE-INTE- 
RES y EXTRAS están prefijadas de an- 
temano. La función de interés INTE- 
RES-2 premia ciertos balances de cuen- 
tas con unos extras que no aparecen en 
INTERES-1 . 

Para el cálculo del interés correspon- 
diente a una cierta cuenta cuyo balance 
supondremos que es de 1000, siempre 
se realizaría la siguiente llamada: 



Con anterioridad se habrá asignado me- 
díante un SET o SETO el valor INTE- 
RES-I o INTERES-2 a la variable FUIM- 



(FUNCALL FUNCION-DE-INTERES 1000) 



CION-DE-INTERES, La función FUIM- 
CALL evalúa eí primero de sus paráme- 
tros para obtener el nombre de una fun- 
ción sobre la que se aplica el resto de 
los elementos de la lista de la expresión 
de llamada. 



Un poco de todo para finalizar 

El propósito de este capítulo no era 
convertir a los lectores en grandes pro- 
gramadores de Lisp, sino tan sólo mos- 
trar los principios básicos del lenguaje 
y esbozar su filosofía. Funciones muy 
potentes como las que manejan listas 
de asociación o las dedicadas a definir 
funciones con un número indetermina- 
do de parámetros no han sido comenta- 
das en favor de una explicación más ex- 
tensa de las más humildes. Otros pun- 
tos importantes como las funciones 
Jambda, los arrays o explicaciones más 
profundas sobre los mecanismos de 
evaluación de expresiones simbólicas 
han seguido el mismo camino. 

Las aplicaciones más espectaculares 
de Lisp han surgido en torno a progra- 
mas que parecen poseer un cierto gra- 
do de inteligencia. Así, Lisp ha sido el 
lenguaje básico para la construcción de 
programas capaces de resolver proble- 
mas de cálculo a nivel de bachillerato 
superior, detectar enfermedades infec- 
ciosas en la sangre, comprender circui- 
tos electrónicos, determinar los lugares 
en los que realizar prospecciones petro- 
líferas o demostrar teoremas matemáti- 
cos. En general, el Lisp ha constituido, 
hasta la aparición de! Prolog, la herra- 
mienta básica en cualquier estudio de 
Inteligencia Artificial. Ya se han citado 
ca mpos de actuación de los sistemas ex- 
pertos, pero igualmente se podrían citar 
investigaciones en el campo del recono- 
cimiento del lenguaje natural escrito 
como hablado y en el reconocimiento de 
figuras y formas en dos y tres dimensio- 
nes. 

Las buenas esperanzas que ofrece el 
Lisp y la manipulación de símbolos han 
hecho surgir ordenadores cuya arquitec- 
tura está orientada específicamente a !a 
ejecución de programas escritos en este 
lenguaje, y en los que desde el sistema 
operativo hasta ía última aplicación 
como un editor de textos están escritos 
en él. 
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